массив tEdit

← →
denis24 (2003-06-25 11:33) [0]

Как можно оптимально проверить не пусты ли tedit?
Через цикл это понятно ,а вот как обращаться именно к эдитам.
Короче азы VCL ;)

← →
Poirot (2003-06-25 11:38) [1]

if Components[i] is TEdit then if (Coponents as TEdit).text = "" then blablabla....

← →
Palladin (2003-06-25 11:39) [2]

1 TComponent.FindComponent + определенный порядок наименования объектов
2 хранение созданых также и в своем контейнере

← →
kudatsky (2003-06-25 11:41) [3]

procedure TForm1.Button1Click(Sender: TObject);
Var
I:Integer;
begin
for I:=0 to ControlCount-1 do
if Controls[I] is TEdit then
if TEdit(Controls[I]).Text <> "" then
TEdit(Controls[I]).Text:=IntToStr(I);
end;

массив tEdit Найти похожие ветки