String mit ... abkürzen

[marabu]

Hallo Mario,

wahrscheinlich verstehe ich dein Problem nicht, aber genügt nicht auch weniger Code?

Delphi-Quellcode:

 
procedure TDemoForm.ButtonClick(Sender: TObject);
var
  s: string;
  r: TRect;
begin
  s := DupeString('Der Affe den Sie meinen heißt Parmesan ', 5);
  r := Rect(20, 60, 180, 110);
  DrawText(Canvas.Handle, PChar(s), Length(s), r, DT_END_ELLIPSIS or DT_WORDBREAK);
end;

Freundliche Grüße