如何取得字符串(路径)中的文件类型?

Question

比如关于取文件类型F:\Documents and Settings\cowbo\My Documents\My Pictures\Sample.jpg请问,如何取得最后一个.号后面的文字jpg?谢了.

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  str: string;
begin
  str := 'F:\Documents and Settings\cowbo\My Documents\My Pictures\Sample.jpg';
  str := ExtractFileExt(str);
  str := Copy(str, 2, Length(str));
  ShowMessage(str);
end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  str: string;
begin
  str := 'F:\Documents and Settings\cowbo\My Documents\My Pictures\Sample.jpg';
  str := ExtractFileExt(str);    //---->str ='.jpg';
  str := delete(trim(str),1,1);  //---->str ='jpg';
  ShowMessage(str);
end;

Answer 3

写错了,把 str := delete(trim(str),1,1);  改为delete(trim(str),1,1);