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


А по ссылке сказано, что надо прописывать не относительные, а абсолютные пути (это не причина, я пробовал с относительными, все в порядке), т.е., "диск:\папка\подпапка\data\cb1.txt"
amega
ммм, а папка data по своей характеристики имеет свои какиета свойтва(поскольку у меня адрес был ...data\cb4.txt , а после замены на выше предложеную процедуру мне выдало ошибку ...data\data\cb4.txt нот фаунд), как только я ее убрал(папку дата) и перенес файлы в папку где все файлы проекта(*.dpr,*.pas....) то все заработала+поменял процедуру на выше предложеную
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.