Форум: "Основная";
Текущий архив: 2003.07.07;
Скачать: [xml.tar.bz2];

Вниз

массив 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;

---

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

Форум: "Основная";
Текущий архив: 2003.07.07;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.007 c