Скачать: CL | DM;

Неявный опрос компонентов   Найти похожие ветки 

← →
Sergey Litvin   (2003-12-11 09:36) [0]

Hi, многоуважаемый All!
У меня такой впрос:
Имеется на форме порядка 10 TEdit. Как в цикле перебрать все значения
TEdit.Text?

пробовал так:

procedure MyProc(.....);
var
s : array [1..10] of string;
begin
for i := to 10 do s[i] := (Form1.Components[i] as TControl).Text
^^^^
end;

В этом случае: [Error] Unit1.pas(103): Undeclared identifier: "Text"

а если делать так:

procedure MyProc(.....);
var
s : array [1..10] of string;
begin
for i := to 10 do s[i] := (Form1.Components[i] as TEdit).Text
^^^^
end;

то получаем EInvalidCast.

Подскажите, плиз, где ошибка?

---

← →
alex_***   (2003-12-11 09:38) [1]

if Components[i].InheritsFrom(TEdit) then
(Components[i] as TEdit).Text :=

---

← →
Eugene1501 ©   (2003-12-11 10:42) [2]

if Form1.Components[i].ClassName="TEdit" then
s[i]:=(Form1.Components[i] as TEdit).Text;

---

← →
Ega23 ©   (2003-12-11 10:51) [3]

for i:=0 to ComponentCount-1 do
begin
if (Components[i] is TEdit) then
(Components[i] as TEdit).Text ......
end;

---

← →
Sergey Litvin   (2003-12-11 11:51) [4]

Огромное спасибо

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.016 c