ComboBox1获取ini文件信息

[haijun1130]

procedure Tfrm_Server.ComboBox1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key = 13 then
begin
ComboBox1.Items.Add(ComboBox1.Text);
if Length(ComboBox1.Items[9])>0 then //只允许保留10条记录
ComboBox1.Items.Delete(0);
end;
end;

本人想先把 ComboBox1 选项中信息保存到 INI 文件。
启动程序在获取该 INI 文件信息到 ComboBox1 选项。

[MyCrooner]

装入：ComboBox1.Items.LoadFromFile('文件');
保存：ComboBox1.Items.SaveToFile('文件');

[haijun1130]

procedure Tfrm_Server.ComboBox1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key = 13 then
begin
ComboBox1.Items.Add(ComboBox1.Text);
if Length(ComboBox1.Items[9])>0 then
ComboBox1.Items.Delete(0);
ComboBox1.Items.SaveToFile('Select.Ini');
end;
end;

procedure Tfrm_Server.Button6Click(Sender: TObject);
begin
if not FileExists('Select.Ini') then Exit;
ComboBox1.Items.LoadFromFile('Select.Ini');
ComboBox1.Text := ComboBox1.Items[0];
end;