ExtractFileExt

[delorion]

Hallo zusammen.


Ich zerlege einen String der den Pfad und Namen einer Datei hat mit ExtractFileExt das geht auch problemlos solange die Dateierweiterung nur 3 Zeichen oder weniger hat.
Bei mehr Buchstaben ist hängen.
Liegts an der Methode ?
Und wenn, wie kann ich dann auch Endungen wie z.B. .class Extrahieren ?

Gruß Delorion

[Luckie]

Versuch das mal:

Delphi-Quellcode:

function MyExtractFileExt(const szFilename: string): string;
var
  rpos : integer;
begin
  rpos := length(szFilename);
  if(pos('.',szFilename) > 0) then
    while(szFilename[rpos] <> '.') and (rpos > 0) do
      dec(rpos);

  Result := copy(szFilename,1,rpos - 1);
end;

[delorion]

Hallo Luckie.

Vielen Dank

habs hinbekommen.

Gruß Delorion