Dateiendung ohne Punkt

[lbccaleb]

Delphi-Quellcode:

function ExtractFileExtW(pszText: WideString): WideString;
var
  i: integer;
begin;
  Result := pszText;
  if(pos('.',szFilename) > 0) then
    for i := Length(pszText) downto 1 do
      if pszText[i] = '.' then begin;
        Result := Copy(pszText, i + 1, Length(pszText));
        Break;
      end;
end;

[Sir Rufo]

Zitat von lbccaleb:

Delphi-Quellcode:

function ExtractFileExtW(pszText: string): WideString;
var
  i: integer;
begin
  Result := pszText;
  for i := Length(pszText) downto 1 do
    if pszText[i] = '.' then begin;
        Result := Copy(pszText, i + 1, Length(pszText));
        break;
    end;
end;

Nein, diese Funktion arbeitet nicht zuverlässig

Code:

C:\Mein.Verzeichnis\DateiOhneEndung

[lbccaleb]

Ja soll ja nur ein Bsp. sein, kann man mit einem ÖffnungsFilter ja ganz leicht korrigieren und kann Sie ja selber noch umbauen..
Außerdem ging es ja um Dateien MIT Endung^^

[Bernhard Geyer]

Zitat von lbccaleb:

Außerdem ging es ja um Dateien MIT Endung^^

Eine Funktion sollte auch korrekt funktionieren wenn fehlerhafte oder nicht erwartete Eingaben kommen.
In diesem Fall wäre ein Leerstring korrekt

[lbccaleb]

OkOk^^

Er kann auch einfach die aus der SysUtils Unit umbauen:

Delphi-Quellcode:

uses
  SysUtils;
function ExtractFileExtDotless(const FileName: string): string;
var
  I: Integer;
begin
  I := LastDelimiter('.' + PathDelim + DriveDelim, FileName);
  if (I > 0) and (FileName[I] = '.') then
    Result := Copy(FileName, I+1, MaxInt) else
    Result := '';
end;

[nuclearping]

Delphi-Quellcode:

var Ext: String;
begin
  Ext := ExtractFileExt('Filename.txt');
  if (Pos('.', Ext) = 1) then
    Delete(Ext, 1, 1);
end;

[Sir Rufo]

Eine Fileextension hat am Anfang einen Punkt oder ist leer.
Die Abfrage auf den Punkt kann man sich also gepflegt sparen.

Ein Copy( Ext, 2 ) ist absolut ausreichend und ohne Schnörkel