Запись в текстовый файл из ComboBox

[Siluet]

 z:=StrToInt(edit22.Text)-StrToInt(edit23.Text); //высчитывается экономия
  if z>0 then begin
 AssignFile(f,'Экономия.txt');
  reset(f);
writeln(f,combobox8.items.text); //тут выходит ошибка при обработке..
writeln(f,combobox4.items.text);
writeln(f,combobox9.items.text); 
writeln(f,z);

Правильно ли я делаю ?

[Квэнди]

не reset, а append и rewrite с проверкой

[IT-man]

нет

 for i:= 0 to cbb8.items.count-1 do 
      writeln(f,cbb8.items[i]);

и так для каждого

[Siluet]

Сообщение от IT-man

нет

 for i:= 0 to cbb8.items.count-1 do 
      writeln(f,cbb8.items[i]);

и так для каждого

в этом коде вроде в текстовый файл заноситься весь comboBox.. а мне над только то что выбрано..

[Квэнди]

Еще раз читаем
http://programmersforum.ru/showpost....75&postcount=2

[Siluet]

Квэнди

 if not(FileExists('Экономия.txt')) then rewrite(f) else
  Append(f);
 writeln(f,combobox8.items.text);
  writeln(f,combobox4.items.text);
  writeln(f,combobox9.items.text);

Правильно ?

[Квэнди]

Да, теперь открытие файла корректно

[Siluet]

но счас чет в файл ниче не записывает (

[maladoy]

Если нужно то что выбрано то не

combobox8.itemIndex

а

combobox8.text

[Квэнди]

не вижу у вас закрытия файла...