Список в браузере

[russian-stalker]

В браузере есть комбобокс. но при смене страниц инфа в нём не сохраняется. Как сделать чтобы сохранялась?(лучше в ини и выложити кодом, а не файлом)

[Ozerich]

Сохранение

procedure save;
var
i:integer;
ini:Tinifile;
begin
deletefile(extractfilepath(application.ExeName)+'Config.ini');
ini:=Tinifile.Create(extractfilepath(application.ExeName)+'Config.ini');
with ini do begin
writeInteger('Count','Count',combobox1.items.count);
for i:=0 to combobox1.items.count-1
writestring('Items',item'+inttostr(i),combobox1.items[i]);
ini.free;

Загрузка

procedure Load;
var
i:integer;
Count:integer;
ini:Tinifile;
begin
ini:=Tinifile.Create(extractfilepath(application.ExeName)+'Config.ini');
with ini do begin
count:=ReadInteger('Count','Count',-1);
if count=-1 then exit;
for i:=0 to count-1 do
combobox1.items.add(readString('Items',item'+inttostr(i),'');
ini.free;

Как просил кодом

[Alter]

ещё проще, в файл:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    ComboBox1: TComboBox;
  private
    { Private declarations }
  public
  procedure Save;
  procedure Load;
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.Save;
begin
 ComboBox1.Items.SaveToFile(ExtractFilePath(ParamStr(0))+'Config.dat');
end;

procedure TForm1.Load;
begin
 If FileExists(ExtractFilePath(ParamStr(0))+'Config.dat') then
 ComboBox1.Items.LoadFromFile(ExtractFilePath(ParamStr(0))+'Config.dat');
end;

end.