TComboBox и ini

[мимо]

Здравствуйте.
Подскажите как считать данные в TComboBox из ini, чтобы запись в TComboBox появилась уже в ниспадающем меню. Т.е. активная строка в TComboBox была пустая, а запись из ini была следующей.
Сейчас я делаю так

IniFile:=TIniFile.Create(ExtractFileDir(Application.ExeName)+ '\' + 'my.ini' );
cbb1.text:=IniFile.ReadString('1','0', '');
for i := 1 to cbb1.Items.Count-1 do cbb1.Items.Add(IniFile.ReadString('1',inttostr(i),''));

[nXs]

Возможно так, не самый оптимальный, но рабочий:

var
i:TIniFile;
n:integer;
Str:TStringList;
begin
i:=TIniFile.Create(extractFileDir(paramstr(0))+'\1.ini');
Str:=TStringList.Create;
ComboBox1.Clear;
i.ReadSectionValues('1', Str);
for n:=0 to str.Count-1 do
Combobox1.Items.Add(i.ReadString('1', inttostr(n),  ''));
i.Free;
str.Free;
end;

[Sanprof]

......

var
  Form1: TForm1;
  i : integer = 1;

implementation

...

var
  ini : Tinifile;
  f : string;
begin
  ini := Tinifile.Create(ExtractFileDir(Application.ExeName)+ '\' + 'my.ini');
  f := ini.ReadString('1',inttostr(i),'');
  inc(i);
  while (f <> '') do
    begin
      f := ini.ReadString('1',inttostr(i),'');
      combobox1.Items.Add(f);
      inc(i);
    end;
ini.free;

при условии, что в вашем ини файле возле каждого индекса точно есть строка, а не пустое место.

[мимо]

nXs

Спасибо. Ваш код работает.

Sanprof

Ваш код еще проверю.
А теперь возникла проблема с записью данных из TComboBox в ini при закрытии программы, если в TComboBox уже есть несколько строк.
Не могли помочь?

[nXs]

Можно например так:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
i:TINIFile;
begin
i:=TIniFile.Create(extractFileDir(paramstr(0))+'\1.ini');
for n:=0 to ComboBox1.Count-1 do
begin
ComBobox1.ItemIndex:=n;
i.WriteString('1', itnttostr(n), ComboBox.Text);
end;
i.Free;
end;

[мимо]

спасибо. но у меня ваш код не сработал. Если уже есть ini файл и там есть запись - при загрузки программы она загружается в combobox. Затем добавляем еще одну запись, закрываем программу и в ini ничего не записывается. Там остается та же изначальная запись.
Также не записывается в ini, если его нет и он создается, т.е. он даже не создается (

[nXs]

Извините, нашел несколько ошибок. Вот рабочий код:

var
i:TIniFile;
n:integer;
begin
i:=TIniFile.Create(extractFileDir(paramstr(0))+'\1.ini');
for n:=0 to ComboBox1.Items.Count-1 do
begin
ComBobox1.ItemIndex:=n;
i.WriteString('1', inttostr(n), ComboBox1.Text);
end;
i.Free;
end;

[мимо]

не. изначальный ваш код я исправил, просто он у меня не работает. не сохраняет данный из ComboBox1. Вот он

  IniFile:=TIniFile.Create(ExtractFileDir(Application.ExeName)+ '\' + 'my.ini' );
for n:=0 to Form1.cbb1.Items.Count-1 do
begin
Form1.cbb1.ItemIndex:=n;
IniFile.WriteString('1', inttostr(n), Form1.cbb1.Text);
end;
IniFile.Free;
end;

вот. пример, в котором это можно заметить. в ComboBox1 пишется любые данные и при закрытии должно сохранятся в ini.

[nXs]

Это потому, что когда вы вводите в combobox текст, не создается новый item. Сделайте подтверждение ввода например по нажатию клавиши enter:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=13 then cbb1.Items.Add(cbb1.Text);
end;

Свойство keypreview формы должно бить true.

[мимо]

ага. Значит я могу и строку

Form1.cbb1.Items.Add(Form1.cbb1.Text);

вставить в FormDestroy после создания ini. и все будет работать.
спасибо.
и еще вопросик - возможно ли сделать проверку, что уже вводили такие данные, то их не записывать в ini?