Einen String auf eine bestimmte Länge kürzen mit '...'hinten

[Stanlay Hanks]

Hallo zusammen: Ich weiß, das is niy großartiges, aber ich hab mir gedacht, dass das ab und zu ganz nützlich sein kann.
Wenn man z.B. in ein Label einen Pfad einfügt, der zu lang ist um aufs Form zu passen, denke ich, kann man das gut gebrauchen.
Aus C:\Programme\Mein Programm\Ini Dateien\ wird dann
C:\Programme\Mein Pro...

Delphi-Quellcode:

function TMainForm.Namenlaenge(Text: String; MaxLenght: Integer): String;
var i : Integer;
istr  : String;
begin
IF Length(Text) >= MaxLenght THEN
begin
For i := 1 to MaxLenght do
begin
istr := istr + Text[i];
end;
Namenlaenge := istr+'...';
end
ELSE
Namenlaenge := Text;
end;

Aufrufen könnte man das dann so:

Delphi-Quellcode:

Label1.hint    := Label1.caption; //Der Lange Text wird als Hint angezeigt
Label1.caption := Namenlaenge(Label1.caption,30) //30 ist die Anzahl der Endlänge des Strings

Man liest sich, Stanlay