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

Вниз

Edit[i].text-возможно ли это?   Найти похожие ветки 

← →
vitv ©   (2006-11-27 09:09) [0]

Edit[i].text-возможно ли это?

---

← →
Palladin ©   (2006-11-27 09:11) [1]

запросто

---

← →
ЮЮ ©   (2006-11-27 09:18) [2]

Ктати, кроме TEdit-а есть ещё TStringGrid

---

← →
Gydvin ©   (2006-11-27 09:22) [3]

Например так

procedure TForm1.Button1Click(Sender: TObject);
var
 x: integer;
 r: array of tobject;
 i: integer;
begin
 setlength(r, 0);
 i := 0;
 for x := 0 to ComponentCount - 1 do
   if Components[x] is TEdit then begin
     inc(i);
     setlength(r, i);
     r[i - 1] := Components[x];
   end;

 for x := 0 to i - 1 do
   showmessage(tedit(r[x]).text);
end;

---

← →
vitv ©   (2006-11-27 09:23) [4]

Спасибо!

---

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

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

Наверх

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