Как из ini файла заполнить ComboBox?

[alexusankov]

Здравствуйте, уважаемые форумчане. По работе возникла необходимость написать небольшую программку. Не могли бы вы подсказать мне, как написать следующие процедуры:
1. Имеется файл, в нем такие значения
переменная=значение
переменная=значение
......
Собственно хочется процедуру, которая засунет список переменных в ComboBox ( именно самих переменных, без значений ).
2. Второе, необходима процедура, которая будет искать в этом файлике заданную переменную, и выдавать ее значение.
3. Ну и последнее, необходима процедурка, которая будет брать 2 переменных, вводимые юзером, ставить между ними знак "=", и дописывать в конец моего файлика.
Все, заранее, огромный респект, тому, кто выручит

[_SERGEYX_]

Для ответа на все эти вопросы требуется ЭЛЕМЕНТАРНОЕ знание работы с ini-файлами.
Вот, собственно, вся инфа по ним и все вопросы отпадут...

//Процедуры чтения параметров из ini-файла:
function ReadString(const Section, Ident, Default: string): string;
function ReadInteger(const Section, Ident: string; Default: Longint): Longint;
function ReadBool(const Section, Ident: string; Default: Boolean): Boolean; 
function ReadDate(const Section, Name: string; Default: TDateTime): TDateTime;
function ReadTime(const Section, Name: string; Default: TDateTime): TDateTime;
function ReadDateTime(const Section, Name: string; Default: TDateTime): TDateTime;
function ReadFloat(const Section, Name: string; Default: Double): Double;
function ReadBinaryStream(const Section, Name: string; Value: TStream): Integer; 

//Процедуры записи параметров в ini-файл:
procedure WriteString(const Section, Ident, Value: string);
procedure WriteInteger(const Section, Ident: string; Value: Longint);
procedure WriteBool(const Section, Ident: string; Value: Boolean); 
procedure WriteDate(const Section, Name: string; Value: TDateTime);
procedure WriteTime(const Section, Name: string; Value: TDateTime); 
procedure WriteDateTime(const Section, Name: string; Value: TDateTime);
procedure WriteFloat(const Section, Name: string; Value: Double); 
procedure WriteBinaryStream(const Section, Name: string;Value: TStream);  
--------------------------------------------------------------------------------
 //Основные процедуры и функции для работы с ini-файлами
 
 //Существует ли секция:
function SectionExists(const Section: string): Boolean;
//Чтение всей секции:
procedure ReadSection(const Section: string; Strings: TStrings);
//Чтение всего файла (все секции записываются в Strings):
procedure ReadSections(Strings: TStrings);
//Чтение всех значений в заданной секции:
procedure ReadSectionValues(const Section: string; Strings: TStrings);
//Удаление заданной секции со всеми её значениями:
procedure EraseSection(const Section: string);
//Удаление определённого ключа (и его значения) в секции:
procedure DeleteKey(const Section, Ident: String);
//Существует ли заданный ключ в указанной секции:
function ValueExists(const Section, Ident: string): Boolean;

[alexusankov]

Сорри, неосиляю))
Подалуйста, можно в примере готовых 3 процедуры, что я спрашивал. Они банальны в принципе

[Slippy]

Как вариант, можно загнать файл в TStringList

StringList.LoadFromFile('filename');

И если текст представлен в виде "переменная=значение", то StringList.Names[i] вернёт имя I-переменной, а StringList.ValueFromIndex[i] вернёт значение I-переменной. Остаётся только бегать по элементом стринг листа в цикле и записывать / читать что нужно и куда нужно =)

з.ы. хотя по сути это извращение, если работаете именно с ini-файлом, т.к. для него есть свой набор функций (читайте выше)

[Slippy]

Как вариант, можно загнать файл в TStringList

StringList.LoadFromFile('filename');

И если текст представлен в виде "переменная=значение", то StringList.Names[i] вернёт имя I-переменной, а StringList.ValueFromIndex[i] вернёт значение I-переменной. Остаётся только бегать по элементом стринг листа в цикле и записывать / читать что нужно и куда нужно =)

з.ы. хотя по сути это извращение, если работаете именно с ini-файлом, т.к. для него есть свой набор функций (читайте выше)

[alexusankov]

Я пытался осилить работу с INI, но что то, кодинг это не мое. Просто безысходная нужда заставила писать меня эту программулину.
Забыл упомянуть -
переменная=значение
всегда разные. и переменные и значения. заранее узнать их никак.
Помогите тремя готовыми процедурами, кто в состоянии это написать

[alexusankov]

Ау, народ, что никто не сможет помочь?

[Человек_Борща]

Все просто:

Сохранение:

procedure TSmthType.Save;
var
  i: Integer; //счётчик
begin
  Ini := TIniFile.Create({ВАШ ФАЙЛ}); //грузим файл
  try
    ini.EraseSection({СЕКЦИЯ}); //Чистим секцию
    for i := 0 to ComboBox.Items.Count {- 1 - надо ли?} do //Цикл пересчёта элемнтов combobox
    begin
      ini.Write{ТИП}({СЕКЦИЯ}, IntToStr(i) + {Параметр}, ComboBox.Items.Strings[i]); //записываем
    end;
  finally
    Ini.Free; //Освобождаем
  end;
end;

загрузка:

procedure TSmthType.Load;
var
  i:integer; //Счётчик
begin
  Ini := TIniFile.Create({ВАШ ФАЙЛ});
  try
    i := 0; //Ставим 0
    while true do //Бесконечный цикл
    begin
      if ini.ValueExists({Секция}, IntToStr(i) + {Параметр}) then //Если существует
      begin
        ComboBox.Items.Strings[i] := Ini.ReadString({СЕКЦИЯ}, IntToStr(i) + {Параметр}, ''); //Записываем в combobox
      end
      else
        Break; //Иначе Выход из бесконечного цикла
      Inc(i); //Увеличиваем i на 1-о значение(Было 0 стало 1, читаем хелп ;))
    end;
  finally
    ini.Free; //Отваливаем 
  end;
end;

Надеюсь усё ясно=)

[alexusankov]

Все, ок, спасибо за четкий и конкретный ответ, уважаю. Однако, промучаышись всю ночь, я отказался от
переменная=значение, а просто храню лист значений
listbox1.item.loadfromfile();
Остался только 1 вопрос:
1. Имеется переменная, тип String.
Нужно, открыть файл,стереть все что в нем было, и записать туда значение этой переменной. Битый час бьюсь, ничего не выходит. Пробую так:
var f : file;
var testing : string;
begin
testing := 'sdfs';
AssignFile (F, 'realmlist.wtf');
Rewrite (f);
BlockWrite(f;testing;1);
Closefile ( F );
end;
++++++++++++++
Подскажите как правильно?

[Человек_Борща]

Открой TiniFile класс и смотри как парсится файл. Вырви это и переделай под себя.