Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.12.23;
Скачать: 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 вся ветка

Текущий архив: 2003.12.23;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.011 c
14-75402
Denis_Ac
2003-11-28 09:11
2003.12.23
Форум


3-75090
Shirson
2003-11-30 18:23
2003.12.23
Работа с большими полями (text)


14-75328
Мазут Береговой
2003-11-30 10:30
2003.12.23
Помните давки в магазинах?


14-75364
Шишкин Илья
2003-11-28 16:24
2003.12.23
Как вам программка?


7-75442
Glukalex
2003-10-09 17:07
2003.12.23
Чтение данных из COM-порта