一、 记事本
implementation
var address:String ;
{$R *. dfm }
procedure TForm1.save1Click(Sender: TObject ); 打开
begin
OpenDialog1.Execute;
address:= OpenDialog1.FileName;
Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
end;
procedure TForm1.save2Click(Sender: TObject ); 保存
begin
if(address='') then
begin
SaveDialog1.Execute;
Memo1.Lines.SaveToFile(SaveDialog1.FileName);
address:=SaveDialog1.FileName;
end
else
Memo1.Lines.SaveToFile(address);
end;
procedure TForm1.saveas1Click(Sender: TObject ); 另存为
begin
SaveDialog1.Execute;
Memo1.Lines.SaveToFile(SaveDialog1.FileName);
address:=SaveDialog1.FileName;
end;
资源评论
