[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;