wieso???
wieso sollte i 540 sein???
also ich mein es ginge...zur sicherheit machs halt als while schleife...also so:
Delphi-Quellcode:
i:=0;
while i<length(Memo.Lines.Text) div 510 do
begin
inc(i);
TMemo(findcomponent('Memo'+inttostr(i))).Clear;
TMemo(findcomponent('Memo'+inttostr(i))).Lines.Text:=copy(Memo.Lines.Text,0,510);
s:=Memo.Lines.Text;
delete(s,0,510);
Memo.Lines.Text:=s;
end;
TMemo(findcomponent('Memo'+inttostr(i+1))).Lines.Text:=Memo.Lines.Text;
Memo.Clear;
also bei mir funzt das...
es kann noch zu nem error kommen wenn halt zuwenig memos da sind...aber das kannst du machen...