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