关于savedialog的保存路径显示的问题

Question

我想把保存的路径显示出来
memo1.Caption:=Copy(SaveDialog1.FileName,1,LastDelimiter('\',SaveDialog1.FileName));
这样的话，如果我把文件abc.txt存到D:\test文件夹下，那么其路径显示就是D:\test
而我想它把文件名也显示出来，应该怎么写呢？

Answer 1

memo1.Caption := SaveDialog1.FileName;
这样不就是既有文件名又有路径了？

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
    mySaveDialog: TSaveDialog;
begin
    mySaveDialog := TSaveDialog.Create(self);    if mySaveDialog.Execute then
    begin
        ShowMessage(mySaveDialog.FileName);
    end;    mySaveDialog.Free;
end;