Помогите, please, разобраться с TEdit

← →
Codec (2002-10-30 18:57) [0]

Доброго времени суток, Мастера!
Похоже меня переклинило, но не могу сообразить, выручайте, пожалуйста!

Проблема в следующем: имеется 10 Edit"ов (класс TEdit): Edit1,Edit2,...Edit10.
Как можно (если можно вообще) организовать запись значений из них в цикле вроде:

for i:=1 to 10 do Edit[i].Text := A[i];
"Edit[i].Text" - глупость, конечно, и работать не будет, но я думаю, смысл того, что я хочу сделать понятен.

Заранее СПАСИБО!!!

← →
MBo © (2002-10-30 19:06) [1]

findcomponent, inttostr, is, as

← →
k © (2002-10-30 19:11) [2]

вместо Edit1,Edit2,...Edit10 объявляй массив:
Edits:array[1..10] of TEdit;

а дальше динамическое создание/уничтожение...

создание:
procedure CreateEdits; var i :integer; begin for i:=1 to 10 do begin Edits[i]:= TEdit.Create(Self); Edits[i].Parent := Self; Edits[i].Visible := true; //размеры, стили, положение //события можно так обработать Edits[i].OnChange := MyProc; //где MyProc объявляешь как procedure MyProc(Sender:TObject); end; end;

ан-но все остальное... уничтожение,
принцип ясен, надеюсь

← →
k © (2002-10-30 19:21) [3]

а можно как МВо предложил

function GiveMyEdit(num:integer):TEdit; var EditName:string; begin EditName := "Edit" + inttostr(num); Result := findcomponent(EditName) as TEdit; end;

то есть для номера 1 вернет Edit1 и т.п.
это упрощенный вариант

Помогите, please, разобраться с TEdit Найти похожие ветки