Dateiendung ohne Punkt

[Panthrax]

Delphi-Quellcode:

function DelphiXE5_GetExtension(const Filename: String): String;
begin
  Result := TPath.GetExtension(Filename).Substring(1);
end;

function Delphi7_GetExtension(const Filename: String): String;
begin
  Result := ExtractFileExt(Filename);
  Result := Copy(Result, 2, Length(Result) - 1);
end;

Delphi-Quellcode:

begin
  WriteLn(GetExtension('Archiv.tar.gz'));
end.

Code:

gz