Форум: "Основная";
Текущий архив: 2003.10.16;
Скачать: [xml.tar.bz2];
ВнизПомогите найти ошибку Найти похожие ветки
← →
Ден (2003-10-03 15:15) [0]Почему не открывает файл для чтения, но его находит. Кусок проги
вот:f:TextFile;
god1:string;
Name,s,m:string;
begin
m:=".txt";
if findFirst("C:\Documents and Settings\Denis\My Documents\foF2\*.00*",
$3f,Sr)=0 then Begin
Name:=sr.Name;
Name:=expandFileName(name);
{memo1.Lines.Add(name);} (1)
assignFile(f,name);
ChangeFileExt(Name,m);
if FileExists(name) then
begin
reset(f); вот здесь встает, если не писать FileExists и говорит
что файл не найден, хотя при печатанье в memo (1),путь прописывается и есть файл.
← →
Duncan (2003-10-03 15:19) [1]А ты строчки
assignFile(f,name);
ChangeFileExt(Name,m);
местами менять не пробовал? Иногда помогает, но редко :-)
← →
Ден (2003-10-03 15:22) [2][1] Пробывал и это и многое другое, не помогает. Почему, не знаю.
← →
Ден (2003-10-03 15:38) [3]Эй, кто- нибудь, что-нибудь ответит?
← →
pasha_golub (2003-10-03 15:54) [4]Тебе Duncan ответил!
На код свой посмотри внимательно, тем более, что ты процедурой AssignFile только имя связываешь, а надо путь+имя. Короче, ищи ошибки
← →
Ден (2003-10-03 15:55) [5]Эй мастера, ау
← →
Ден (2003-10-03 15:58) [6][4] у меня стоит процедура Name:=expandFileName(name); которая
возвращает весь путь и имя
← →
Anatoly Podgoretsky (2003-10-03 16:25) [7]А зачем ты это делаешь Name:=expandFileName(name); и как ты думаешь какой будет результат, могу ответить это средняя теипература по больнице, с таким же успехом можно использовать Random.
Или не используй if findFirst("C:\Documents and Settings\Denis\My Documents\foF2\*.00*",
$3f,Sr)=0 then Begin
Name:=sr.Name;
Или вместо этого expandFileName(name) сделай сложение с выше указанной константой
← →
han_malign (2003-10-03 16:44) [8]>Почему не открывает файл для чтения, но его находит.
- интересная логика, почему файл " C:\Documents and Settings\Denis\My Documents\foF2\*. 00* " находится, а " <CurDir>\*. txt " - не открывается. И кого ты нашел, а кто не открывается???
← →
El (2003-10-03 18:41) [9]Да ведь ты ж ассигненный файл переименовывать пытаешься!
assignFile(f,name);
ChangeFileExt(Name,m);
if FileExists(name) then
ты его, значит, ассигнишь, потом переименовываешь?
← →
pasha_golub (2003-10-03 19:33) [10]2El
Блестящая интуиция :-))))))
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.10.16;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.011 c