Entwickler-Ecke

Delphi Language (Object-Pascal) / CLX - Dateiname aus Pfad extrahieren ?


Blamaster - Mo 27.08.07 12:48
Titel: Dateiname aus Pfad extrahieren ?
Hallo,

mit Filename:=ExtractFileName(Ergebnis2);, habe ich es geschafft den Pfad vor der Datei zu entfernen. Es wird allerdings immernoch das Format hinter dem Dateinamen angezeigt z.B. dateiname.exe. Wie bekomme ich noch das exe hinter dem Dateinamen weg ?


mfg Yannic


Narses - Mo 27.08.07 13:18
Moin!

Schonmal die Suche benutzt? Suche in: Delphi-Forum, Delphi-Library DATEINAME ERWEITERUNG :roll:

Findet z.B. auch das hier [http://www.delphi-forum.de/viewtopic.php?p=40275#40275]. :les:

cu
Narses


IceBube - Mo 27.08.07 13:19
Hallo!

Eine Idee wäre folgende:


Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
 
//procedure bzw. funktion ....
var FileName,Ext,wstr : string;
Fund : integer;
begin
FileName := ExtractFileName(Ergebnis2);
FileExt := ExtractFileExt(FileName);

Fund := Pos(FileExt,FileName);
if Fund <> -1 then
begin
FileName := Copy(Filename,0,Fund-1);
end;

//So nun ist wird der FileName ohne die Datei Erweiterung angezeigt
end;


Edit: s.o. @Narses^ oke es geht auch einfacher

Mfg


Blamaster - Mo 27.08.07 18:20
Danke genau das habe ich gesucht :)


jaenicke - Mo 27.08.07 23:18
Oder sehr viel einfacher:

Delphi-Quelltext 
1:
 
DateinameOhneEndung := ChangeFileExt(Dateiname, '');
;-)

// EDIT: Und das steht ja auch unter dem verlinkten Topic, wie ich gerade sehe^^


Andreas L. - Mo 27.08.07 23:53

Delphi-Quelltext 
1:
2:
 
Fund := Pos(FileExt,FileName);
if Fund <> -1 then


Pos gibt 0 zurück wenn der Teilstring nicht gefunden wurde.


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!