delphi新手问题，如何取文件名

2025-05-11 11:36:13

推荐回答（3个）

回答1：

这个不太好实可，可以只要 1234.txt 不要前面的地址
方法：ExtractFileName(OpenDialog1.FileName);

如果你的文件名是固定的4位，可以用copy取出前四位。

不好意思，我也是新手，只能帮你这么多了……^-^

回答2：

procedure TForm1.Button3Click(Sender: TObject);
var
sfilename:string;
begin
if OpenDialog1.Execute then
sfilename:=ExtractFileName(OpenDialog1.FileName);
sfilename:=copy(sfilename,1,length(sfilename)-4);
showmessage(sfilename);
end;

回答3：

GetDir(***);