Ergebnis der Suchanfrage

• Forum: Programmieren allgemein

  AW: Dateiendung ohne Punkt

   
    by Panthrax, 24. Jan 2014
  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;