|
Registriert seit: 18. Feb 2005
286 Beiträge
Delphi 2010 Enterprise
|
AW: Dateiendung ohne Punkt
24. Jan 2014, 18:32
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.
"Es gibt keine schlimmere Lüge als die Wahrheit, die von denen, die sie hören, missverstanden wird."
|