如何取得OpenDialog的文件名，条件是不要绝对路径名，不要文件夹名，不要扩展名。只要最间单的文件名

Question

如何取得OpenDialog的文件名，条件是不要绝对路径名，不要文件夹名，不要扩展名。只要最间单的文件名

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
  ShowMessage(ExtractFileName(OpenDialog1.FileName));
end;

Answer 2

if OpenDialog1.ExeCute then
begin
  str1 := ExtractFileName(OpenDialog1.Filename);
  n    := pos('.',str1)
  str2 := copy(Str1,1,n-1)//这便是你想要的！
end;

Answer 3

//刚刚看丢了．不要扩展名....
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
  ShowMessage(Copy(ExtractFileName(OpenDialog1.FileName),1,POS('.',ExtractFileName(OpenDialog1.FileName))-1))
end;