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

来源：百度知道 编辑：UC知道 时间：2024/05/30 13:25:17
有一个文件名 String

比如 c:\abcd\1234.txt

我现在 要用opendialog得到这个String

但是我只要 c:\abcd\1234部分 不要.txt 部分

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;

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

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

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

GetDir(***);