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.