procedure TForm1.FileSaveExecute(Sender: TObject);
var FileName: String;
begin
if SaveDialog1.Execute
then RichEdit1.Lines.SaveToFile(SaveDialog1.FileName);
end;
var FileName: String;
begin
if SaveDialog1.Execute
then RichEdit1.Lines.SaveToFile(SaveDialog1.FileName);
end;
begin
if SaveDialog1.Execute
then RichEdit1.Lines.SaveToFile(SaveDialog1.FileName);
end;
能帮帮小弟吗?
能帮帮小弟吗?