Erhalte vom Programm "Keine Rückmeldung" - Speicherüberlauf?

[DieFliege]

Zitat von HolgerX:

Ach nochwas:

Statt

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  memo2.Clear;
  memo2.SelLength := 0;
  quelltext  := memo1.Text;
  textbreite := StrToInt(edit1.Text);
  memo2.SelText := Textumbruch(quelltext, textbreite);
end;

kannst Du besser

Delphi-Quellcode:

  Memo2.Text := WrapText(StringReplace(Memo1.Text,#13#10,' ',[rfReplaceAll])
                         ,sLineBreak
                         , [' ']
                         ,StrToInt(edit1.Text));

das Clear / Sellength := 0 und SelText kannst Du dir sparen

Ach ja, das StringReplace habe ich eingebaut, damit die in Memo1 vorhandenen Zeilenumbrüche nicht beim WrapText stören und sauber neu umgebrochen wird.

Hallo HolgerX,

igit ist das einfach. Nun habe ich mir mal "WrapText" angesehen und auch Deinen Text verstanden.

Vielen Dank allen, die mir auf die Sprünge geholfen haben.

Wünsche Euch eine schöne Woche.

LG Micha


Hallo Perlsau,

Zitat von Perlsau:

Ich hab da so meine Zweifel

Also ich habe das so verstanden, dass ich mit damit Abfrage, ob sich innerhalb meiner Textbreite überhaupt ein Leerzeichen befindet. Die kann aber durch evtl. Formatierungen im Text verhindert werden und damit würde das Programm in eine Endlosschleife gehen und ich irgendwann die Meldung "Keine Rückmeldung" erhalten. Also muss ich nicht nur nach Leerzeichen suchen, sondern auch andere Zeichen berücksichtigen. Richtig?

Danke für Deine Hilfe,
LG Micha