5,391
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
bill_lasker 2002-07-01
- 打赏
- 举报
还是用ExtractFileName(SaveDialog1.FileName)好
deepbluesea 2002-07-01
- 打赏
- 举报
ExtractFileName(SaveDialog1.FileName);
linx88 2002-07-01
- 打赏
- 举报
procedure TForm1.Button1Click(Sender: TObject);
var
str:string;
begin
if opendialog1.Execute then
str:=opendialog1.FileName;
while pos('\',str)>0 do
begin
str:=copy(str,pos('\',str)+1,(length(str)-pos('\',str)-1));
end;
str 即是所得
end;
var
str:string;
begin
if opendialog1.Execute then
str:=opendialog1.FileName;
while pos('\',str)>0 do
begin
str:=copy(str,pos('\',str)+1,(length(str)-pos('\',str)-1));
end;
str 即是所得
end;
日总是我哥 2002-07-01
- 打赏
- 举报
ExtractFileName(OpenDialog1.FileName);
日总是我哥 2002-07-01
- 打赏
- 举报
ExtractFileName(OpenDialog1.FileName);
日总是我哥 2002-07-01
- 打赏
- 举报
ExtractFileName(OpenDialog1.FileName);
