Запись строки в файл
if not FileExists('MyFile.txt') then begin
ShowMessage('не найден файл');
Exit;
end;
AssignFile(f,'MyFile.txt');
reset(f);
write(f,'text');
closefile(f);
При записи выдаётся ошибка. В чём проблема, подскажите. Файл существует.
Цитата:
Originally posted by gray_k
пытаюсь записать строку в текстовый файл:
if not FileExists('MyFile.txt') then begin
ShowMessage('не найден файл');
Exit;
end;
AssignFile(f,'MyFile.txt');
reset(f);
write(f,'text');
closefile(f);
При записи выдаётся ошибка. В чём проблема, подскажите. Файл существует.
пытаюсь записать строку в текстовый файл:
if not FileExists('MyFile.txt') then begin
ShowMessage('не найден файл');
Exit;
end;
AssignFile(f,'MyFile.txt');
reset(f);
write(f,'text');
closefile(f);
При записи выдаётся ошибка. В чём проблема, подскажите. Файл существует.
ХЕЗ!
rewrite и append работают!
Цитата:
Originally posted by man2002ua
ХЕЗ!
rewrite и append работают!
ХЕЗ!
rewrite и append работают!
Да, append работает.:o
Глюк какой-то.
Цитата:
Originally posted by gray_k
пытаюсь записать строку в текстовый файл:
if not FileExists('MyFile.txt') then begin
ShowMessage('не найден файл');
Exit;
end;
AssignFile(f,'MyFile.txt');
reset(f);
write(f,'text');
closefile(f);
При записи выдаётся ошибка. В чём проблема, подскажите. Файл существует.
пытаюсь записать строку в текстовый файл:
if not FileExists('MyFile.txt') then begin
ShowMessage('не найден файл');
Exit;
end;
AssignFile(f,'MyFile.txt');
reset(f);
write(f,'text');
closefile(f);
При записи выдаётся ошибка. В чём проблема, подскажите. Файл существует.
Reset( var Vf [: File; RecSize: Word ] );
Если с файловой переменной Vf связан текстовый файл, то он открывается только для чтения.
reset(f); -> rewrite, append ??
Цитата:
Originally posted by Quasi
Reset( var Vf [: File; RecSize: Word ] );
Если с файловой переменной Vf связан текстовый файл, то он открывается только для чтения.
Reset( var Vf [: File; RecSize: Word ] );
Если с файловой переменной Vf связан текстовый файл, то он открывается только для чтения.
да, похоже так оно и есть - для текстовых файлов нет возможности писать данные поверх. Впринципе - логично :)
Цитата:
Originally posted by gray_k
пытаюсь записать строку в текстовый файл:
if not FileExists('MyFile.txt') then begin
ShowMessage('не найден файл');
Exit;
end;
AssignFile(f,'MyFile.txt');
reset(f);
write(f,'text');
closefile(f);
При записи выдаётся ошибка. В чём проблема, подскажите. Файл существует.
пытаюсь записать строку в текстовый файл:
if not FileExists('MyFile.txt') then begin
ShowMessage('не найден файл');
Exit;
end;
AssignFile(f,'MyFile.txt');
reset(f);
write(f,'text');
closefile(f);
При записи выдаётся ошибка. В чём проблема, подскажите. Файл существует.
А у тебя переменная F типа Text или TextFile?
Цитата:
Originally posted by gray_k
пытаюсь записать строку в текстовый файл:
if not FileExists('MyFile.txt') then begin
ShowMessage('не найден файл');
Exit;
end;
AssignFile(f,'MyFile.txt');
//reset(f);//Этот оператор для чтения файла для
//записи append(f); или appendfile(f);
//точно непомню.
append(f);
write(f,'text');
closefile(f);
При записи выдаётся ошибка. В чём проблема, подскажите. Файл существует.
пытаюсь записать строку в текстовый файл:
if not FileExists('MyFile.txt') then begin
ShowMessage('не найден файл');
Exit;
end;
AssignFile(f,'MyFile.txt');
//reset(f);//Этот оператор для чтения файла для
//записи append(f); или appendfile(f);
//точно непомню.
append(f);
write(f,'text');
closefile(f);
При записи выдаётся ошибка. В чём проблема, подскажите. Файл существует.