Text zerlegen

[glkgereon]

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 )