работа с текстовым файлом

← →
Bullfrog (2007-06-08 23:57) [0]

Привет еще раз!
Вообщем вот что я написал:
begin while not eof(DataFile) do begin read(DataFile, Users); if (AvtLog = Users.Login) and (AvtPas = Users.Password) then With Users do ocenka1:=inttostr(ocenka); end; write(DataFile,Users); end;
Проблема в том, что записывается(нужно чтоб заменялась) не только изменившаяся информация, а дублируется все что связано с логином и паролем.

← →
{RASkov} © (2007-06-09 00:07) [1]

Seek(DataFile, FilePos(DataFile)-1);
Я так понял, что речь о типизированном файле...
каждая операция read или write смещает указатель на следующую запись...

← →
Bullfrog (2007-06-09 00:10) [2]

ОГРОМНЕЙШЕЕ СПАСИБО!!!

работа с текстовым файлом Найти похожие ветки