ошибка invalid filename Опции

[amega]

добрый день!
Пишу програмку и ошибка Invalid filename уже надола, немогу понять почему она вилетает.

суть в чем на форм криет у мея для 4 текстовых файлов происходит assignfile.

procedure TForm1.FormCreate(Sender: TObject);
begin
assignfile(g1,'data\cb1.txt');
assignfile(g2,'data\cb2.txt'); 
assignfile(g3,'data\cb3.txt');
assignfile(g4,'data\cb4.txt');
end;

в этих файлах я храню значения строк 4 комбобоксов.

У меня также есть 4 основных файла с которими я работаю, дак вот когда я запускаю програму и проверяю комбобокс то все работает, как только я открою 4 основных файла, потом как только я вибираю значения из кобо бокса то выдает ошибку invalid filename

процедура формирования списка

procedure TForm1.ComboBox2Enter(Sender: TObject);
var
   s:string;
begin
 reset(g2); <<----------------- в этом месте выдает
 combobox2.Items.Clear;
 while not eof(g2) do
 begin
  readln(g2,s);
  combobox2.Items.Add(s);
 end;
 closefile(g2);
end;

файловые переменные все глобальные

здесь чета похожеее http://www.delphikingdom.com/asp/answer.asp?IDAnswer=68577 но я так и непонял,
может у когото есть теоретический материал про ошибки7


Сообщение отредактировано: amega - 26.04.2009 23:30