文本文件保存的问题。

[wangzhe200]

我做一个类似于WINDOWS自带的记事本的东西。在写保存代码的时候出现保存目录无效请问各位高手。。帮小弟我解决这个小问题。help!!!
代码如下。unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, SUIMainMenu, ExtCtrls, SUIForm, StdCtrls, ComCtrls,
SUIMemo;

type
TForm1 = class(TForm)
suiForm1: TsuiForm;
suiMainMenu1: TsuiMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
OpenDialog1: TOpenDialog;
suiMemo1: TsuiMemo;
SaveDialog1: TSaveDialog;
procedure N3Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N5Click(Sender: TObject);
private
{ Private declarations }
public
procedure open(const filename1: string);
{ Public declarations }
end;

var
Form1: TForm1;
filename1: string;


implementation

{$R *.dfm}

procedure TForm1.N3Click(Sender: TObject);
begin
if opendialog1.execute then
open(opendialog1.filename);
end;
procedure tform1.open(const filename1:string);
begin
with suimemo1 do
unit1.Form1.suiForm1.Caption:=filename1;
suimemo1.Lines.LoadFromFile(filename1);
end;
procedure TForm1.N4Click(Sender: TObject);
begin
if suimemo1.text= filename1 then
n4click(sender)
else
suimemo1.Lines.SaveToFile(filename1);
suimemo1.Modified:=false;
end;

procedure TForm1.N5Click(Sender: TObject);
begin
savedialog1.FileName:=suimemo1.text;
if savedialog1.Execute then
begin
filename1:=savedialog1.FileName;
caption:=extractfilename(filename1);
n5click(sender)
end;
end;

end.

[microjuz]

看delphi，demo中的doc目录

[glfwyz]

将这一句filename1:=savedialog1.FileName;
改成filename1:=savedialog1.FileName+'.txt';