본문 바로가기
삽질/Delphi

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

by 푸딩s 2011. 7. 22.


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;


댓글