怎样在程序退出后保存控件属性？

Question

在程序运行时，我修改了控件本身的属性，要在退出后保存我所修改控件的属性值，应该怎么做？我用下面的程序行不通，请高手指教，谢谢！
例如:
var
i:Integer;
flag:Boolean;
begin
flag:=True;
for i:=0 to ComboBox1.Items.Count do 
   if ComboBox1.Items.Strings[i]=ComboBox1.Text then flag:=False;
if flag then ComboBox1.Items.Add(ComboBox1.Text);
end;

Answer 1

把相关内容写入ini文件,之后程序启动时,再读入...

Answer 2

unit Unit2;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm2 = class(TForm)
    ComboBox1: TComboBox;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form2: TForm2;implementation{$R *.dfm}
const fname='cb.dat' ;
procedure TForm2.Button1Click(Sender: TObject);
begin
  ComboBox1.Items.Add(TimeToStr(now()));
end;procedure TForm2.Button2Click(Sender: TObject);//保存控件状态
var
  pr:TMemoryStream;
begin
  pr:=TMemoryStream.Create;
  pr.Clear;
  pr.WriteComponent(ComboBox1); 
  pr.SaveToFile(fname);
  PR.Free;
end;procedure TForm2.Button3Click(Sender: TObject););//读取设置控件状态
var
  pr:TMemoryStream;
begin
  pr:=TMemoryStream.Create;
  pr.Clear;
  pr.LoadFromFile(fname);
  pr.ReadComponent(ComboBox1);
  pr.Free;
end;end.

Answer 3

谢谢 “sxf_zero(从头再来)”给的程序！

Answer 4

一般的处理方法：
1.保存在一个ini文件中
2.保存到注册表中