Suffix und Dateierweiterung

[Handycommander]

Hallo,

wie kann ich die Dateierweiterung von einer Datei auslesen. Also, ich habe eine ShellListView-Komponente und ein Edit-Feld. Ich möchte in dem Edit-Feld die Dateianzeigen + die Erweiterung. Also wenn ich eine TXT-Datei ausgewählt habe, dann will ich, dass in der Edit-Komponente die Erweiterung txt angezeigt wird. Geht das? Wie?

Danke

Tobias

[Benni]

Die einfachste Methode ist, den Dateinamen umzudrehen mit AnsiReverseStr, dann mittels Pos und Copy den String bis zum ersten Punkt raus zu kopieren und diesen dann wieder umzudrehen. Dann hast Du den Suffix, egal wie lang der auch sein mag.

Irgendwie so:
<pre>
S := AnsiReplaceStr(S);
Suffix := Copy(S, 1, Pos('.', S));
Suffix := AnsiReplaceStr(Suffix);
</pre>
wobei S der FileName ist

Evtl. mußt Du noch checken, ob da überhaupt ein Punkt ist im Dateinamen (vielleicht hat die Datei keine Endung). Aber so fährst Du jedenfalls richtig

[KarstenKattner]

Es gibt hiefür

SysUtils.function ExtractFileExt(const FileName: string): string