Verkürztes Label mit "..." am Satzende

[Lun]

Sowas vielleicht ?

Delphi-Quellcode:

function TForm1.getkurzenSatz(satz : String):String;
var
 satzKurz : String[40];
begin
   if length(satz) > 40 then
   begin
       satzKurz := satz;
       Result := satzKurz+'...';
   end
   else begin
        Result := satz;
        end;
end;

Musst natürlich deinen String den du ins Label schreiben willst, vorher mit mder Funktion aufrufen und dann ins Label schreiben.

greetz Lun