Unicode対応ExtractFileExt

interface

function ExtractFileExtW(sFile: WideString): WideString;


implementation

function ExtractFileExtW(sFile: WideString): WideString;
{
Unicode対応ExtractFileExt。
'.'は返る。
}
var
  i: Integer;
begin
  Result := '';
  for i := Length(sFile) downto 1 do begin
    if (sFile[i] = '\') or (sFile[i] = ':') then begin
      //拡張子なし
      Break;
    end else if (sFile[i] = '.') then begin;
      //拡張子あり
      Result := Copy(sFile, i, MaxInt);
      Break;
    end;
  end;
end;