[Dellink]

Реализовать чтение и сохранение параметров ComboBox при запуске и завершении программы.
В ComboBox есть парочка строчек, туда добавляем ещё несколько, как их сохранить в ini файл, у меня только одну строчку получается....

Код:

procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
   if Key =#13 then //Если нажата клавиша Enter то...
   begin
       //  Строка из окна редактирования заносится в список выборa
    ComboBox1.Items.Add(ComboBox1.Text);
    ComboBox1.Text := ''; //Очистка окна редактирования
   end;
end;

procedure TForm1.ComboBox1Click(Sender: TObject);
var
  St : string;
  n, i, nst, ind  : integer;
begin
  n   := 0; //Содержит число слов выбранной строки                                                          //Содержит число слов
  ind := 0;
//Определение номера выбранной строки
  nst := ComboBox1.ItemIndex;
//Занесение выбранной строки в переменную st
  St := ComboBox1.Items[nst];
//Просмотр всех символов строки st
  for i := 1 to Length(St) do
  begin
      if St[i]<>' ' then
       ind := ind+1;
      if (St[i]=' ') or (i=Length(St)) then
        begin
          if ind=5 then
            n := n+1;
          ind:=0;
        end;
  end;

  Label3.Caption := IntToStr(n); //Вывод числа слов в Label3
  end;

[Dellink]

сохранять сделал....осталось считать....

Код:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
   IniFile.WriteString('FORM1','ComboBox1',ComboBox1.Items.Text);
   Form1.Close;
end;

считывать никак не получается....при запуске в ComboBox только 1 строчка((

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin
   IniFile:=TIniFile.Create('C:\My.ini');
   ComboBox1.Items.Text := IniFile.ReadString('FORM1','ComboBox1.Items.Text',ComboBox1.Items.Text);
end;