Text zerlegen

[Nicodius]

:mrgreen: ich würds mit dem copy machen :thumb:

[glkgereon]

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...

[Nicodius]

weil nach der schleife i anders ist ;)

[glkgereon]

und wieso gerade 540?

ich mein das hat doch keinen sinn, oder?

[Nicodius]

sorry meinte 510

[glkgereon]

nein, wenn überhaupt hätte i in dem fall den wert length(Memo.Lines.Text) div 510 gehabt...darauf habbich gehofft