Помогите найти ошибку

← →
Ден © (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) сделай сложение с выше указанной константой

>Почему не открывает файл для чтения, но его находит.
- интересная логика, почему файл " 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

ты его, значит, ассигнишь, потом переименовываешь?

2El
Блестящая интуиция :-))))))

Помогите найти ошибку Найти похожие ветки