Неявный опрос компонентов

← →
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]

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

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