|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
Не выводится переменная в файл
Код:
AssignFile(f, 'data/password.txt'); AssinFile(f, pass); reset(f); CloseFile(f); AssignFile(f, 'data/password.txt'); rewrite(f); spass:=Edit1.text; npass:=Edit2.text; ppass:=Edit3.text; if spass=pass then begin if npass=ppass then writeln(f, npass); CloseFile(f) end; После выполнения процедуры файл оказывается пустым. Условия выполняются 100% |