[Faraon]

Сообщение от Страдалецъ

А не хотите через IniFile это организовать?

Код:

procedure TForm1.FormCreate(Sender: TObject);
var
 IniFile: TIniFile;
 i: Integer;
begin
 IniFile := TIniFile.Create('c:\test.rtt');
 IniFile.ReadSection('ListBox1',ListBox1.Items);
 for i := 0 to ListBox1.Count-1
 do ListBox1.Items.Strings[i] := IniFile.ReadString('ListBox1',ListBox1.Items.Strings[i],'');

 IniFile.ReadSection('ComboBox1',ComboBox1.Items);
 for i := 0 to ComboBox1.Items.Count-1
 do ComboBox1.Items.Strings[i] := IniFile.ReadString('ComboBox1',ComboBox1.Items.Strings[i],'');

 IniFile.ReadSection('ComboBox2',ComboBox2.Items);
 for i := 0 to ComboBox2.Items.Count-1
 do ComboBox2.Items.Strings[i] := IniFile.ReadString('ComboBox2',ComboBox2.Items.Strings[i],'');

 IniFile.ReadSection('ComboBox3',ComboBox3.Items);
 for i := 0 to ComboBox3.Items.Count-1
 do ComboBox3.Items.Strings[i] := IniFile.ReadString('ComboBox3',ComboBox3.Items.Strings[i],'');

 IniFile.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 IniFile: TIniFile;
 i: Integer;
begin
 IniFile := TIniFile.Create('c:\test.rtt');
 for i := 0 to ListBox1.Count-1
 do IniFile.WriteString('ListBox1',IntToStr(i),ListBox1.Items[i]);

 for i := 0 to ComboBox1.Items.Count-1
 do IniFile.WriteString('ComboBox1',IntToStr(i),ComboBox1.Items[i]);

 for i := 0 to ComboBox2.Items.Count-1
 do IniFile.WriteString('ComboBox2',IntToStr(i),ComboBox2.Items[i]);

 for i := 0 to ComboBox3.Items.Count-1
 do IniFile.WriteString('ComboBox3',IntToStr(i),ComboBox3.Items[i]);

 IniFile.Free;
end;

Это не немного тот вариант сохранения, который необходим
Сдесь проблема в самом сохранении, а в методе загрузки, при выборе параметров ComboBox(1,2,3), они должны запоминается для поля ListBox1, а при выборе из ЭТИХ тех же значений в ComboBox(1,2,3) в ListBox1 должны выводится строки соответствующие им.