FileListBox ohne Anzeige der Dateiextensions?

[zecke]

:hi:

Im Titel gestellte Frage, ich bekomme es einfach nicht gebacken, dass nur die Dateinamen aufgelistet werden ohne Extension :wall:

:arrow: "text.txt" im Ordner und angezeigt werden soll nur "text" - kann mir jmd helfen?

Danke im voraus :hi:

ps: Habe hier schon gesucht, aber nichts passendes gefunden :cry:
ps: Hoffe ich habe die richtige Forumecke erwischt :roll:

[Die Muhkuh]

Bockmist... sorry

[Flare]

Delphi-Quellcode:

name := Copy(ExtractFileName(dateiname), 1, Length(ExtractFileName(dateiname))-Length(ExtractFileExt(dateiname)));

Probiers mal damit.


Flare

//edit: Kleinen Fehler korrigiert...

[zecke]

Danke :thumb: funktioniert einwandfrei :drunken:

:coder:

[danku]

was funzt hier dran nicht?

Delphi-Quellcode:

for i:=0 to Opendialog1.files.count -1 do
   begin

   name := Copy(ExtractFileName((OpenDialog1.Files.count-1)), 1, Length((ExtractFileName(OpenDialog1.Files.count-1)))-Length(ExtractFileExt((OpenDialog1.Files.count-1))));

   sgfiles.cells[0,1 + i]:= (name);
   sgfiles.cells[1,1 + i]:= (OpenDialog1.Files[i]);

[Hawkeye219]

Hier noch ein kleiner Tip:

Bei der Funktion ChangeFileExt darf der letzte übergebene Parameter auch ein Leerstring sein.

Gruß Hawkeye

[danku]

lol? es geht doch nicht um das weglassen der ~endung sondern nur um das anzeigen der einzelnen datei ohne absoluten .pfad

das sagt delphi:
ChangeFileExt (Funktion)
ChangeFileExt ändert die Namenserweiterung der in FileName übergebenen Datei in den mit Extension angegebenen Wert. Extension legt die neue Erweiterung einschließlich des vorangestelltn Punktes fest.

hab das problem selber gelöst

[Hawkeye219]

Zitat:

Zitat von danku

lol? es geht doch nicht um das weglassen der ~endung sondern nur um das anzeigen der einzelnen datei ohne absoluten .pfad

Hmm, der Titel des Threads sagt etwas anderes. :gruebel:

Für mich ist

Delphi-Quellcode:

name := ChangeFileExt(ExtractFileName(OpenDialog1.Files[i]), '');

deutlich lesbarer als

Delphi-Quellcode:

name := Copy(ExtractFileName(OpenDialog1.Files[i]), 1,
             Length(ExtractFileName(OpenDialog1.Files[i])) -
             Length(ExtractFileExt(OpenDialog1.Files[i])));

Ach ja, der zweite Code könnten Klammer-Fehler enthalten. Ich habe irgendwann die Übersicht verloren...

Gruß Hawkeye

[SirThornberry]

Im übrigen ist die TFileListBox depricated und sollte von daher nicht mehr verwendet werden.

[danku]

der titel ist ja auch nicht von mir.
dachte das deine anzeige(nach meinem thread) auf mich bezogen war.
naja seis drum