[Delphi] 파일 확장자 알아내기



function GetExt(FileName: string): string;
var
  TempArray: TStringList;
begin

  Result := '';

  TempArray := TStringList.Create;

  ExtractStrings(['.'], [' '], PChar(FileName), TempArray);

  if Pos('.', FileName) <> 0 then
    Result := TempArray.Strings[TempArray.Count - 1];

  TempArray.Clear;
  TempArray.Free;

end;