[Михалыч]

Подскажите как лучше организовать сохранение данных ввода, в частности Combobox.
Делал так ComboBox1.Items.SaveToFile ('1.txt');, все работает но это если имеется только один ComboBox, а вот если их несколько тогда как?
Сохранять каждый ComboBox в отдельный файл не вариант.

[v1s2222]

Сохраняй все в ИНИ файл, либо свой типизированный. (var F: File of MyType).

[Михалыч]

Разобрался, вот так работает Ini.WriteString('Исходные данные','ComboBox1',ComboBox1.Items.Text);

[Михалыч]

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

[PlanetDigits]

А ты по нажатию на кнопку сначала удаляй файл!

[Михалыч]

Сообщение от PlanetDigits

А ты по нажатию на кнопку сначала удаляй файл!

Ок. Так и сделал, все работает спасибо.
Еще одна проблеммка, как теперь загрузить данные из файла.
Пишу так Ini.ReadString('Бла бла бла ','ComboBox2',ComboBox2.Items.Text);, но ничего не грузится

[Страдалецъ]

Внимательнее читайте как правильно использовать ReadString

[Михалыч]

Сообщение от Страдалецъ

Внимательнее читайте как правильно использовать ReadString

Можно на примере? ??

[PhoeniX]

Код:

ComboBox2.Items.Text:=Ini.ReadString('Бла бла бла ','ComboBox2','Значение по умолчанию, если не задано в файле');

[Михалыч]

вот что написанов ini файле
[Исходные данные]
ComboBox1=1
2

ComboBox2=4
5
6

все равно не пойму как прогрузить в сомбобох

[lmikle]

Сообщение от Михалыч

вот что написанов ini файле
[Исходные данные]
ComboBox1=1
2

ComboBox2=4
5
6

все равно не пойму как прогрузить в сомбобох

Не получится у тебя так. Дело в том, что св-ве Text данные храняться с переврводами строк, а ini не поддерживает такую ситуацию. Тебе надо либо как-то обработать текст, что бы убрать переводы строк. Например, завернуть строку в Base64. Или придумать другой какой вариант.

[deltas]

Код:

procedure TForm1.Button2Click(Sender: TObject);
var i : integer;
begin
For i:=0 to ComboBox1.Items.Count do begin
 AppIni.WriteString('Combo1',IntToStr(ComboBox1.ItemIndex),ComboBox1.Items[ComboBox1.ItemIndex]);
ComboBox1.ItemIndex:=ComboBox1.ItemIndex+1;
 end;
end;

Вот так можешь сохранять в файл...

[Михалыч]

Сообщение от deltas

Код:

procedure TForm1.Button2Click(Sender: TObject);
var i : integer;
begin
For i:=0 to ComboBox1.Items.Count do begin
 AppIni.WriteString('Combo1',IntToStr(ComboBox1.ItemIndex),ComboBox1.Items[ComboBox1.ItemIndex]);
ComboBox1.ItemIndex:=ComboBox1.ItemIndex+1;
 end;
end;

Вот так можешь сохранять в файл...

Сохранение работает. Помогите с загрузкой из файла.

[Страдалецъ]

Можно делать несколько иначе:
Запись:

Код:

Ini.WriteString('Исходные данные','ComboBox1',RepaceString(ComboBox1.Items.Text,#13#10,'|',[rfReplaceAll]));

Чтение:

Код:

ComboBox1.Items.Text := RepaceString(Ini.ReadString('Исходные данные','ComboBox1'),'|',#13#10,[rfReplaceAll]));

[Михалыч]

Сообщение от Страдалецъ

Можно делать несколько иначе:
Запись:

Код:

Ini.WriteString('Исходные данные','ComboBox1',RepaceString(ComboBox1.Items.Text,#13#10,'|',[rfReplaceAll]));

Чтение:

Код:

ComboBox1.Items.Text := RepaceString(Ini.ReadString('Исходные данные','ComboBox1'),'|',#13#10,[rfReplaceAll]));

На RepaceString ругается. В Uses может нужно прописать что?