Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  Re: Text zerlegen

    Delphi
    by glkgereon, 2. Nov 2004
  nein, wenn überhaupt hätte i in dem fall den wert length(Memo.Lines.Text) div 510 gehabt...darauf habbich gehofft
• Forum: Sonstige Fragen zu Delphi

  Re: Text zerlegen

    Delphi
    by glkgereon, 2. Nov 2004
  und wieso gerade 540?
  
  ich mein das hat doch keinen sinn, oder?
• Forum: Sonstige Fragen zu Delphi

  Re: Text zerlegen

    Delphi
    by glkgereon, 2. Nov 2004
  wieso???
  
  wieso sollte i 540 sein???
  
  also ich mein es ginge...zur sicherheit machs halt als while schleife...also so:
  
  i:=0;
  while i<length(Memo.Lines.Text) div 510 do
  begin
  inc(i);
• Forum: Sonstige Fragen zu Delphi

  Re: Text zerlegen

    Delphi
    by glkgereon, 2. Nov 2004
  hast du den code so anbgeschrieben? :roll:
  
  also, diese beiden befehle:
  
  TMemo(findcomponent('Memo'+inttostr(i)))
  copy(Memo.Lines.Text,0,510)
  
  habbich erstmal einzeln erklärt....
  und dann die kombination....
• Forum: Sonstige Fragen zu Delphi

  Re: Text zerlegen

    Delphi
    by glkgereon, 2. Nov 2004
  also, nochma besser kommentiert und übersichtlicher
  
  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
• Forum: Sonstige Fragen zu Delphi

  Re: Text zerlegen

    Delphi
    by glkgereon, 2. Nov 2004
  das würd ich so machen:
  
  for i:=1 to length(Memo.Lines.Text) div 510 do//wieviele memos werden gebrauch?
  begin
  TMemo(findcomponent('Memo'+inttostr(i))):=copy(Memo.Lines.Text,0,510);//text übertragen
  delete(memo1.Lines.Text,0,510);//text aus 1. memo löschen
  end;
  TMemo(findcomponent('Memo'+inttostr(i+1))):=Memo.Lines.Text;//rest des textes löschen
  
  können noch fehler drinsein, aber...