also, nochma besser kommentiert und übersichtlicher
Delphi-Quellcode:
for i:=1 to length(Memo.Lines.Text) div 510 do
begin
da du in jede memo 510 zeichen haben willst, ermittel ich, wie viele memos ich brauch und durchlaufe so oft
TMemo(findcomponent('Memo'+inttostr(i)))
ermittelt die memo mit dem namen "Memo"+ die laufende nummer i
also die memo wo jetzt reingeschrieben werden soll
copy(Memo.Lines.Text,0,510);
kopiert die ersten 510 zeichen aus der ausgangsmemo
TMemo(findcomponent('Memo'+inttostr(i))).Lines.Text:=copy(Memo.Lines.Text,0,510);
das kopiert also die ersten 510 zeichen der ausgangsmemo in die memo mit der laufenden nummer i
Delphi-Quellcode:
delete(memo1.Lines.Text,0,510);
end;
hier lösche ich den bereits kopierten text (510 zeichen) aus der ausgangsmemo
ende der schleife
Delphi-Quellcode:
TMemo(findcomponent('Memo'+inttostr(i+1))).Lines.Text:=Memo.Lines.Text;
Memo.Clear;
nun wird der komplette rest (also rest -> zeichenanzahl mod 510) in die nächte memo kopiert
danach wird als letztes die ausgangsmemo geleert
(der code ist leicht anders als der vorige, da mir da tippfehler unterlaufen sind
)