14.04.2014, 14:33
|
Новичок
|
|
Регистрация: 14.03.2014
Сообщения: 82
Версия Delphi: Delphi XE2
Репутация: -623
|
|
Цитата:
Сообщение от delpi12
ошибку выдает не получается
|
Код:
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
type
TForm1 = class(TForm)
ListBox1: TListBox;
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
procedure ListBox1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
LBText: array;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
p: PStr;
begin
for i:= 0 to 4 do
begin
// принцип такой -
// добавляете новый пункт, одновременно вешаете на него и данные
New(p);
p^:= LBText[1, i];
ListBox.Items.AddObject(LBText[0, i], TObject(p));
end;
end;
procedure TForm1.ListBox1Click(Sender: TObject);
begin
Label1.Caption:= PStr(ListBox1.Items.Objects[Listbox1.ItemIndex])^;
end;
end.
MAD: несоблюдение правил оформления кода!
|