Текущий архив: 2007.07.01;
Скачать: CL | DM;
Вниз
работа с текстовым файлом Найти похожие ветки
← →
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]ОГРОМНЕЙШЕЕ СПАСИБО!!!
Страницы: 1 вся ветка
Текущий архив: 2007.07.01;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.012 c
