FINDCOMPONENT MEMO in PAGECONTROL

[bundy]

Wie kann ich einen Memo das zur Laufzeit erzeugt wurde einen Wert zuweisen.

TMemo(FindComponent('TMemo' + inttostr(1 ))).text := 'HALLO';

haut so nicht hin .

Bitte HILFE :coder:

[Christian Seehase]

Moin Bundy,

FindComponent sucht ja nach dem Namen der Komponente, also gehört in die Klammern kein TMemo+... sondern nur Memo+...

[chris]

hi,

klappt auch wohl eher so:

Delphi-Quellcode:

(FindComponent('Memo' + IntToStr(i)) as TMemo).Text := 'TEST';

[bundy]

for i := 1 to 5 do
begin

TMemo(Form1.PageControl1.Pages[i-1].FindComponent('Memo' + inttostr(i ))).Lines.Add('HALLO'+IntToStr(i));

end;

so funzt

thx