Форум: "Начинающим";
Текущий архив: 2007.07.01;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.004 c