добрый день!
Пишу програмку и ошибка 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;
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;
Не знаю, что там у тебя творится, пустой проект с 4-мя ComboBox-ами отработал сейчас нормально. Показывай, как описываешь переменные (лучше всего создай минимальный проект, который вылетает по той же ошибке, и присоедини его сюда) ... А вообще, чем вручную читать из файла - проще было бы хранить не файловые переменные, а имена, и:
procedure TForm1.ComboBox2Enter(Sender: TObject);
begin
combobox2.Items.Clear;
combobox2.Items.LoadFromFile(name2);
end;
ммм, а папка data по своей характеристики имеет свои какиета свойтва(поскольку у меня адрес был ...data\cb4.txt , а после замены на выше предложеную процедуру мне выдало ошибку ...data\data\cb4.txt нот фаунд), как только я ее убрал(папку дата) и перенес файлы в папку где все файлы проекта(*.dpr,*.pas....) то все заработала+поменял процедуру на выше предложеную