передать его данные в Edit200.text с Form1.ActiveControl.Name;

← →
Aleks © (2005-02-03 20:46) [0]

Получили имя активного компонента на форме
так Label1.Caption:= Form1.ActiveControl.Name;
А КАК передать его данные в другой компонент или переменную ?????????????
на форме есть много Edit(1....120).text
данные нужно передать в Edit200.text

← →
Gero © (2005-02-03 20:49) [1]

Edit200.Text := Form1.ActiveControl.Name;

← →
Aleks © (2005-02-03 20:59) [2]

Gero © (03.02.05 20:49) [1]
Edit200.Text := Form1.ActiveControl.Name;

так я получу его имя, а как получить его текст;
например я узнал что это Edit20, но что в свойстве text;
я хочу получить в итоге конструкцию типа a:=edit[i].text;

← →
jack128 © (2005-02-03 21:08) [3]

Ну так сохрани все эдиты в массив и пголучишь такую конструкцию...

← →
Aleks © (2005-02-03 21:13) [4]

А по подробней................
Я только начинаю :) Если можно с примером

← →
Gero © (2005-02-03 21:34) [5]

var
A: array [1..MaxEditCount] of TEdit;

← →
_RusLAN © (2005-02-03 21:50) [6]

перебирай все компоненты на форме и сравнивай их свойсво Name c требуемым. когда найдеш приведи его к типу ТЕдит ы получи свойство Текст

← →
_RusLAN © (2005-02-03 21:50) [7]

var
A: array [1..20] of TEdit;
begin

?:= Form1.ActiveControl.?;

Edit21.Text:=???

end;

Извени ничего не получается.

if(Form1.ActiveControl is TEdit) then Edit21.Text:=(Form1.ActiveControl as TEdit).Text;

Большое Спасибо всё получилось

передать его данные в Edit200.text с Form1.ActiveControl.Name; Найти похожие ветки