Delphi

ferget · Отправлено: **23:30, 11-09-2011** | #2

сохранить значение в ini файл при выходе

Любезный · Отправлено: **17:42, 12-09-2011** | #3

Текущее значение комбобокса хранится в свойстве ItemIndex, которое можно как считывать, так и записывать. А куда записывать - решай сам: можно в реестр, можно во временный файл, а можно и в память пользователя

А считывать нужно перед показом формы, т.е. в обработчике события OnShow.

camope3 · Отправлено: **21:57, 12-09-2011** | #4

Любезный ты навел меня на мысль

то что мне хотелось я решил, присвоив в инспеторе обьектов нужный ItemIndex который отображается при загрузке.
Но все же, для общего развития не могу вкурить как именно сохранить(загрузить) текущий индекс. Как записать(считать) весь итем - понятно, а вот текущий индекс не пойму. Как запомнить а потом загрузить то, что было выбрано пользоватилем хоть убей

Если не лень кинь кодом с записью в реестр или временный файл. Ну нет же такого понятия Current Index

Любезный · Отправлено: **22:52, 12-09-2011** | #5

Блин... Фигня ведь. ItemIndex - это число, номер текущего пункта. А текст пункта - это Items [ItemIndex] или (только для чтения) ComboBox.Text.

Код писать не буду, но на мысль наведу. Создай TStringList, присвой свойству Text этого стринглиста значение ItemIndex, преобразованное в строку, а затем методом SaveToFile сохрани его во временный файл. Ну и соответственно не забудь уничтожить этот стринглист.

Насчёт реестра - поищи в сети работу с классом TRegistry. Ну и также инфу, в каких разделах нужно создавать ключи.

Цитата:

я решил, присвоив в инспеторе обьектов нужный ItemIndex который отображается при загрузке.

Кстати, если у тебя при запуске программы комбобокс будет пустым (т.е. не заполненным в процессе создания программы), а ItemIndex будет больше -1, у тебя программа может вываливаться с ошибкой. Так что присваивать это свойство нужно только на заполненном комбобоксе (неважно, в DesignTime или в RunTime).

camope3 · Отправлено: **23:41, 12-09-2011** | #6

Любезный Спасибо! проблему решил сохранением в *.ini файл весь код писать не буду напишу кусок для записи
...

Код:

procedure TForm1.ReadParams;
Var IniFile:TIniFile; 
begin
IniFile:=TIniFile.Create('path.ini'); {создаем переменную}
ComboBox1.ItemIndex:=IniFile.ReadInteger('FORM1','ComboBox1ItemIndex',ComboBox1.ItemIndex); {сохраняем выбранный пункт, то над чем я ломал голову}
IniFile.Free; {убиваем переменную}
end;
...

и кусок для чтения

Код:

...
procedure TForm1.WriteParams;
Var IniFile:TIniFile;
begin
IniFile:=TIniFile.Create('path.ini');
IniFile.WriteInteger('FORM1','ComboBox1ItemIndex',ComboBox1.ItemIndex);
IniFile.Free;
end;
...

но при таком варианте path.ini сохраняется в папке Windows но это уже пол беды.

ferget · Отправлено: **23:50, 12-09-2011** | #7

Код:

function TForm1.Ininame: string;
begin
  result := ExtractFilePath(Application.ExeName)+'path.ini';
end;

hb860 · Отправлено: **14:11, 14-09-2011** | #8

Я на делфи лет эдак 10 не писал уже, но я помню, там есть что-то вроде
ComboBox1.Items.SaveToFile('Имя_Файла')

Любезный · Отправлено: **19:19, 14-09-2011** | #9

Цитата:

Я на делфи лет эдак 10 не писал уже, но я помню, там есть что-то вроде
ComboBox1.Items.SaveToFile('Имя_Файла')

Это сохранение пунктов в файл. Но эта команда не сохраняет информацию о том, какой пункт является текущим - это и нужно топикстартеру.

camope3 · Отправлено: **22:45, 15-09-2011** | #10

Всем спасибо за участие в помощи.