哪位大哥大姐能帮小妹一个忙？先谢谢了！

Question

我用Delphi做了一个程序，在执行后的可执行文件中，当点击“保存”按钮时我想把当前打开的所有窗体保存为指定格式的文件。用SaveDialog控件怎样做呀？
    还有，也是在执行后的可执行文件中，当点击“打开”按钮时我想把上次保存的那个文件重新打开，用OpenDialog该怎样做呢？
    

Answer 1

properties below:DefaultExt // **
FileName
Files
Filter
FilterIndex
HistoryList
InitialDir // **

Answer 2

谁说女子不能搞软件？！)  :-) NICE.

Answer 3

var
  sTemp: String
begin
  savedialog.filter := '所有文件|*.*';
  savedialog.initdir := 'C:\';
  if savedialog.execute then
  begin
    sTemp := savedialog.Filename;
  end;
end;

Answer 4

procedure TForm1.BtnOpenClick(Sender: TObject);
var
  t: TOpenDialog;
begin
  t := TOpenDialog.Create(Self);
  t.Filter := 'Text files (*.txt)|*.txt'; // 打开 txt类型文件
  if t.Execute then
  begin
    ShowMessage('Opened ' + t.FileName);
  end;  t.Free;
end;procedure TForm1.BtnSaveClick(Sender: TObject);
var
  t: TSaveDialog;
begin
  t := TSaveDialog.Create(Self);
  t.Filter := 'Text files (*.txt)|*.txt'; // 保存为txt文件。。
  if t.Execute then
  begin
    ShowMessage('Saved AS ' + t.FileName);
  end;  t.Free;
end;ps...因为我找不到这俩控件在哪个页 所以就动态产生 动态释放了 ^_^ 以前没用过。。

Answer 5

^-^to:beyondtkl(大龙驹<冷雨夜,天真的创伤,逝去日子,曾是拥有>) 
我昏了。回答MM的问题原来这么积极。

Answer 6

不好意思！我来晚了。今天下午姐姐让我陪她逛超市去了。
To  gg961681(Cashier.cn) and beyondtkl(大龙驹<冷雨夜,天真的创伤,逝去日子,曾是拥有>) :
   你们写的怎么就出不来结果呀！程序运行时，只能出现一个“打开”对话框或“另存为”对话框，保存不到硬盘或桌面上。
To postfxj(探索者):您好！ “用ini文件保存界面嗎”——是保存界面。用什么方式无所谓。
To zhsunson(sunson) ： “实在不明白打开的是什么？保存的又是什么？”——打开的是上次保存的操作界面，保存的是程序运行后生成的EXE文件的当前操作界面。

Answer 7

哎ing.............
说什么呢？？？？？？？？？？？？？？？

Answer 8

begin
  Opendialog.filter := '所有文件|*.*';
  Opendialog.initdir := 'C:\';
  if Opendialog.execute then
  begin
    if FileExist(Opendialog.Filename) Memo1.LoadFromFile(Opendialog.Filename);
  end;
end;
记得桌面上放个，memo啊！

Answer 9

如果是这样的话，应该建议你去买个《Delphi 100例》看看，只要是小例子的都行啊，这种问题那种书上多的很。顺带问一句，你大几了？

Answer 10

To  gg961681(Cashier.cn)：您好！您的就是保存不到硬盘或桌面上啊。可能小女子智商不高吧，但阁下的程序：
“begin
  Opendialog.filter := '所有文件|*.*';
  Opendialog.initdir := 'C:\';
  if Opendialog.execute then
  begin
    if FileExist(Opendialog.Filename) Memo1.LoadFromFile(Opendialog.Filename);
  end;
end;
记得桌面上放个，memo啊！”除了笔误的1、Opendialog.initdir := 'C:\';好象应为Opendialog.InitialDir := 'C:\';
          2、if FileExist(Opendialog.Filename) Memo1.LoadFromFile(Opendialog.Filename);
好象应为if FileExists(Opendialog.Filename) then Memo1……       外，
还想请问您一句：memo有LoadFromFile()方法吗？
    小女子今年才大二（说了又能怎样！）。学Delphi已经半年了，可能是天生愚顿吧，虽很用功学习（^_^，权当是自吹的 ），然学校里的老师总是敷衍了事，男生们总是自以为是，女生们也知道的不多，所以进展一直很慢。想在CSDN论坛上跟各位老师们好好学习，还望各位大哥、大姐、大师们能指点一下！！！

Answer 11

哎，给你提个醒。你是要读写注册表或INI文件来保存窗体和控件吗？去书店找找书吧，那里这方面的书很多。别人一两句也说不清。

Answer 12

如何從 DFM文件加載控件到窗體動態生成控件？