![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Реализовать чтение и сохранение параметров 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, 26.10.2010 в 15:41. |
#2
|
|||
|
|||
![]() сохранять сделал....осталось считать....
Код:
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; Последний раз редактировалось Dellink, 26.10.2010 в 16:00. |