請問?
假設今日我要在程式裡加入儲存檔案和讀取檔案的功能...
那麼...我該怎麼去儲存Edit / CheckBox / ComboBox 各元件的值?
不是寫在登入檔內...
我想用SaveDialog來儲存成副檔名為.stb
開啟也只能用OpenDialog來開啟.stb檔案
請教要如何做...才能達到...

你可以先用TStringList儲存元件的值,利用TStringList.SaveToFile儲存檔案
OpenDialog.Filter 設定 *.stb|*.stb

===================引 用 lirick2003 文 章===================
請問?
假設今日我要在程式裡加入儲存檔案和讀取檔案的功能...
那麼...我該怎麼去儲存Edit / CheckBox / ComboBox 各元件的值?
不是寫在登入檔內...
我想用SaveDialog來儲存成副檔名為.stb
開啟也只能用OpenDialog來開啟.stb檔案
請教要如何做...才能達到...

請問要怎麼做...看不太董

可以使用foxelf 大大說的，或是直接用
ReadComponentRes WriteComponentRes
來做這樣的功能，比如：

[code delphi]
procedure TForm1.FormCreate(Sender: TObject);
var
FS: TFileStream;
i: integer;
resFileName: String;
begin
resFileName := Application.ExeName '.res';
if FileExists(resFileName) then begin
FS := TFileStream.Create(resFileName, fmOpenRead);
try
for i := 0 to ComponentCount - 1 do begin
try
FS.ReadComponentRes(Components[i]);
except
on E: Exception do begin
MessageDlg(Components[i].Name '初始化狀態失敗！' #13#10 E.Message #13#10 '請刪除' resFileName, mtError, [mbOk], 0);
Application.Terminate;
Abort;
end;
end;
end;
finally
FS.Free;
end;
end;
end;
[/code]

[code delphi]
procedure TForm1.FormDestroy(Sender: TObject);
var
FS: TFileStream;
i: integer;
begin
FS := TFileStream.Create(Application.ExeName '.res', fmCreate);
try
for i := 0 to ComponentCount - 1 do
FS.WriteComponentRes(Components[i].Name, Components[i]);
finally
FS.Free;
end;
end;
[/code]

用xml寫入讀取元件的值
delphi.ktop.com.tw/download.php?download=upload/48d778a8c2f17_stbrw.zip

------
努力會更接近成功

[code delphi]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
CheckBox1: TCheckBox;
ComboBox1: TComboBox;
Button1: TButton;
Button2: TButton;
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Fn : Tstringlist; // 宣告Tstringlist
implementation
{$R *.dfm}
// 存檔
procedure TForm1.Button2Click(Sender: TObject);
begin
if SaveDialog1.Execute then begin
try
Fn.values['Edit1'] := Edit1.text;
Fn.values['Combobox1'] := Combobox1.text;
if Checkbox1.Checked then
Fn.values['Checkbox1'] := '選取'
else
Fn.values['Checkbox1'] := '不選';
Fn.SaveToFile(SaveDialog1.FileName);
except
showmessage('寫檔失敗');
end;
end;
end;
// 開啟檔案
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then begin
Fn.LoadFromFile(OpenDialog1.FileName); // 載入檔案
try
edit1.text := Fn.values['Edit1'];
Combobox1.Text := Fn.values['Combobox1'];
if Fn.values['Checkbox1']='選取' then
Checkbox1.Checked := true
else
Checkbox1.Checked := false;
except
showmessage('讀檔失敗');
end;
end;
end;
// TStringList產生
procedure TForm1.FormCreate(Sender: TObject);
begin
Fn := TStringList.Create;
end;
// TStringList釋放
procedure TForm1.FormDestroy(Sender: TObject);
begin
Fn.Free;
end;
end.
[/code]

------
努力會更接近成功

那在請教一下~我用xml那個範例弄得...
請問要如何儲存SpinEdit的值?

// 讀
SpinEdit1.Value := xmlc.ReadInteger('sec1','SpEd1',0);
// 寫
xmlc.WriteInteger('sec1','SpEd1',SpinEdit1.Value);

------
努力會更接近成功

非常感謝~已經沒問題了...
不過在請教一下...
若今日共有幾百個物件要Save...那程式碼不就要弄幾千行?

摘自 careychen 大大的作品修改，因未徵得他的同意，若堅持反對將予以刪除，以尊重智慧財產權，特此聲明。

[會員作品發表區(限本人創作發表) » 懶惰鬼自動登入器 - (利用 Delphi 控制網頁的 Demo)]
http://delphi.ktop.com.tw/board.php?cid=31&fid=79&tid=95258

[code delphi]
procedure TForm1.Button1Click(Sender: TObject);
var I: Integer;
begin
Fn := Tstringlist.Create;
for I := 0 to ComponentCount - 1 do
if Components[I] is TMemo then
Fn.values[TMemo(Components[I]).Name] := TMemo(Components[I]).Lines.Text
else if Components[I] is TComboBox then
Fn.values[TCombobox(Components[I]).Name] := TCombobox(Components[I]).Text
else if Components[I] is TEdit then
Fn.values[TEdit(Components[I]).Name] := TEdit(Components[I]).text
else if Components[I] is TListBox then
Fn.values[TListBox(Components[I]).Name] := TListBox(Components[I]).Items.Text
else if Components[I] is TCheckbox then
if TCheckbox(Components[I]).Checked then
Fn.values[TCheckBox(Components[I]).Name] := 'Y'
else
Fn.values[TCheckBox(Components[I]).Name] := 'N'
end;
[/code]

------
努力會更接近成功

謝謝~已經有了初步的了解