Ergebnis der Suchanfrage

• Forum: Programmieren allgemein

  AW: Dateiendung ohne Punkt

   
    by lbccaleb, 24. Jan 2014
  OkOk^^
  
  Er kann auch einfach die aus der SysUtils Unit umbauen:
  
  uses
  SysUtils;
  function ExtractFileExtDotless(const FileName: string): string;
  var
  I: Integer;
  begin
• Forum: Programmieren allgemein

  AW: Dateiendung ohne Punkt

   
    by lbccaleb, 24. Jan 2014
  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^^
• Forum: Programmieren allgemein

  AW: Dateiendung ohne Punkt

   
    by lbccaleb, 24. Jan 2014
  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 = '.' then begin;
  Result := Copy(pszText, i + 1, Length(pszText));
  Break;