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