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

[Stanlay Hanks]

Nailor hat mich gerade aufgeklährt, dass das viel leichter mit Copy geht. Also ist meine Funktion oben doch nicht so zu empfehlen.

[ssach]

hy

ja, am besten benutzt du einfach die funktionen copy, delte und fuest dann einfach 3 punkte hintendran!

cu

[Luckie]

Unpraktisch. Mich würde das letzte Verzeichnis mehr interessieren. Hast du schon mal gekuckt wie viele Unterordner es im Verzeichnis C:\Programme gibt?
Im Anhang meine Version. Man kann angeben wie viele "\" man sehen will und dann werden die Ordner in der Mitte durch "..." ersetzt.

[Sharky]

Zitat von Luckie:

.... Man kann angeben wie viele "\" man sehen will und dann werden die Ordner in der Mitte durch "..." ersetzt.

Hai ihr,

die optimale Variante wäre wenn der String so angepasst wird das er einfach genau in eine Label passt.

Es müsste an die Funktion also noch ein Label übergeben werden. Dann ermitteln wie breit das Label ist und entsprechend diesem Wert den String so zu kürzen das :

a: Das laufwerk
b: Der Dateiname bzw. der letzte Unterordner

zu sehen ist.

[mirage228]

wenn für eine DirectoryListBox den "Dirlabel" einstellt, dann zeigt der das auch so ähnlich an. Man könnte doch den Source davon mal angucken oder?

[Tom]

Zitat von Sharky:

die optimale Variante wäre wenn der String so angepasst wird das er einfach genau in eine Label passt.

MinimizeName (Unit FileCtrl).

[Sharky]

Zitat von Tom:

MinimizeName (Unit FileCtrl).

Irgendwann setzt ich mich mal hin und lerne alle Funktionen von Delphi

Seit welcher Version gibt es denn MinimizeName?

[mirage228]

das geht sogar bei mir (Delphi 3 Professional)...

[Daniel B]

Hallo,

ich habe den Thread nach Delphi-Language verschoben.
Es muss ja nicht sein das in Library-Beiträgen so viel diskutiert wird.
Wenn Ihr Euch dann wieder einig seid, machts doch einfach ein neuen Eintrag mit dern endgültigen Lösung. Danke.

Grüsse, Daniel