Друзья помогите!
Имею следующий код:
procedure TfrmMain.btnCalcClick(Sender: TObject);
var
I: integer;
begin
for I := 0 to ControlCount-1 do
if (Controls[I] is TEdit) then
begin
Memo1.Lines.Add(TEdit(Controls[I]).Text);
end;
end;
Не могу получить доступ к published свойствам в коде. В данном случае это свойство "Text".
Как решить проблему?
Здравствуйте, MAsikA, Вы писали:
[]
MAA>Не могу получить доступ к published свойствам в коде. В данном случае это свойство "Text".
В смысле? Код не компилируется? Или компилируется, но результатов не видно? Во втором случае предположу, что ваши эдиты лежат не на форме, а на панели, например. Тогда ссылайтесь в коде на свойства ControlCount и Controls этой панели, и все срастется
