Text zerlegen

[glkgereon]

Zitat:

bei der Zeile mit dem Copy gibt er folgenden Fehler aus:
Operator oder Semikolon fehlt

hast du den code so anbgeschrieben?

also, diese beiden befehle:

TMemo(findcomponent('Memo'+inttostr(i)))
copy(Memo.Lines.Text,0,510)

habbich erstmal einzeln erklärt....
und dann die kombination....

also, hier nochma der code:

Delphi-Quellcode:

for i:=1 to length(Memo.Lines.Text) div 510 do
  begin   
  TMemo(findcomponent('Memo'+inttostr(i))).Lines.Text:=copy(Memo.Lines.Text,0,510);   
  delete(memo1.Lines.Text,0,510);
  end;   
TMemo(findcomponent('Memo'+inttostr(i+1))).Lines.Text:=Memo.Lines.Text;
Memo.Clear;

deine ausgangsmemo heisst Memo und die anderen memo1, memo2, ..., memon