Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.01.28;
Скачать: CL | DM;

Вниз

Массивы объектов   Найти похожие ветки 

 
Tor   (2002-01-08 22:42) [0]

SOS!!!
Объясните, как в Delphi 5 создать массив объектов, если не сложно с примером??
Или как можно реализовать это по-другому?


 
evgeg ©   (2002-01-08 23:33) [1]


const n = 117;
var
M: array [1..n] of TObject;
begin
for i := 1 to n do
M [i] := TObject.Create;
... // использование
for i := 1 to n do
M [i].Free;
end;

Для массив нужен?


 
SergVlad ©   (2002-01-09 01:05) [2]

Example: TList


 
TonnyS ©   (2002-01-09 11:16) [3]

TForm1 = class(TForm)
...
private
procedure ButtonsClick(Sender: TObject);
...
end;

const
buttons=5;
var
arr : array[0..buttons] of TButton;

procedure TForm1.ButtonsClick(Sender: TObject);
begin
case (Sender as TButton).tag of
0 : ... //нулевая кнопка
1 : ...
end;

end;


//в OnCreate формы:
var
i1 : integer;
...
for i1 := 0 to buttons do begin
arr[i1] := TButton.create(self);
arr[i1].parent := self;
arr[i1].OnClick := ButtonsClick;
arr[i1].tag := i1;
arr[i1].Caption := "кнопка N "+inttostr(i1);
end;

//в OnDestroy формы:
var
i1 : integer;
...
for i1 := 0 to buttons do arr[i1].Free;

вроде так.



Страницы: 1 вся ветка

Текущий архив: 2002.01.28;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.019 c
14-90365
Владислав
2001-12-03 08:55
2002.01.28
Недокументированные возможности Delphi 5.


7-90394
Windos
2001-10-18 15:18
2002.01.28
Копирование


3-90222
alextov
2001-12-24 19:39
2002.01.28
Как упорядочить значения в ComboBox е LookUp поля


6-90338
Nemo
2001-10-29 09:27
2002.01.28
Тонууу..уу, SOS...SOS!!!!! Delphi mans, help me пожалуйста


14-90376
VEG
2001-12-05 10:46
2002.01.28
To Создателям этого сайта...