VPF::Не добавляет в файл! - Форум программистов

COOLJohn

Дата 14.1.2006, 12:25 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 33
Регистрация: 30.12.2005

Репутация: нет
Всего: нет

Написал так:

Код


program cool;
uses crt;
const
Path = 'c:\table.txt';
var f: text; a,b,c:string;
Function FileExists(FileName : String) : Boolean;
Var F : text;
Begin
{$I-}
Assign(F, path);
Reset(F);
Close(F);
{$I+}
FileExists := (IOResult = 0) And ('c:\table.txt' <> '');
End;
begin
clrscr;
write('Введите ФИО абонента: ');
readln(a);
write('Введите адрес абонента: ');
readln(b);
write('Введите телефон абонента: ');
readln(c);
Assign(f,path);
if FileExists(path) then
begin
Append(f);
writeln('ФИО: ', a);
writeln('Адрес: ',b);
writeln('Телефон: ',c);
Writeln;
end
Else
Begin
rewrite(f);
writeln('ФИО: ', a);
writeln('Адрес: ',b);
writeln('Телефон: ',c);
writeln;
end;
close(f);
assign(f,path);
reset(f);
readln;
end.

Строчку:
if FileExists(path) then
писал ещё в таком варианте, но результат один и тот же.
Итог такой. Хочу создать запись в файл первый раз - она добавляется.
Хочу добавить запись в этот файл - она заменяется вместо старой.

Написал:
assign(f,path);
reset(f);
readln;
чтобы просмотреть данные в файле.

Это сообщение отредактировал(а) COOLJohn - 14.1.2006, 13:20

Albinos_x

Дата 14.1.2006, 12:46 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: нет
Всего: 108

Цитата(COOLJohn @ 14.1.2006, 12:25

)

В итоге добавляется запись в файл, а когда ввожу данные ещё раз BP 7.0 мне заменяет первую запись.

замени:

Цитата

If FileExists(ParamStr(1)) then

на

Код


If FileExists(Path) then

просто в функцию определения существует ли файл передаётся пустая строка

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »