|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
21.04.2009, 00:24 | #11 | |
Пользователь
Регистрация: 20.04.2009
Сообщений: 65
|
Цитата:
procedure TForm1.Button1Click(Sender: TObject); begin log:=Edit1.Text; pas:=Edit2.Text; AssignFile(f,'c:\Persons.txt'); if fileexists('c:\Persons.txt') then begin append(f); WriteLn(f,log+' '+pas); closefile(f); end else begin Rewrite(f); //создание файла, если он там есть, то перезаписываеться (старый удаляеться, новый пустой появляеться) //Reset(f); //просто открываем файл для редактирования WriteLn(f,log+' '+pas); //записываем строку в файл с переводом курсора на новую строку CloseFile(f); //закрываем файл end; end; procedure TForm1.Button2Click(Sender: TObject); Var Result :boolean; begin log:=Edit1.Text; pas:=Edit2.Text; Result := false; AssignFile(f,'c:\Persons.txt'); reset(f); while not eof(f) do begin readln(f,person); if person=(log+' '+pas) then begin result := true; showmessage('Есть такой пользователь'); exit; end end; if Result = false then showmessage('Нет такого пользователя'); closefile(f); end; Скопируй все и вставь, то у тебя там ошибки с пробелами! Да и диск C на Е измени обратно, то я переставил для себя Спасибо большое,это мое первое творение,справедливая критика |
|
21.04.2009, 00:25 | #12 |
Пользователь
Регистрация: 26.01.2009
Сообщений: 48
|
Ну и на всякий разбор полетов что не так сделал:
procedure TForm1.Button1Click(Sender: TObject); begin log:=Edit1.Text; pas:=Edit2.Text; AssignFile(f,'E:\Persons.txt'); if fileexists('E:\Persons.txt') then begin append(f); WriteLn(f,log+' '+pas); closefile(f); end else begin Rewrite(f); WriteLn(f,log,'',pas); <---- ТУТ ПЕРВАЯ ОШИБКА в начале ты записывал как Log+' '+pas, теперь же пишишь через "," CloseFile(f); end; end; procedure TForm1.Button2Click(Sender: TObject); begin log:=Edit1.Text; pas:=Edit2.Text; AssignFile(f,'E:\Persons.txt'); reset(f); while not eof(f) do begin readln(f,person); if person=(log+' '+pas) then showmessage('есть такой пользователь') else showmessage('нет такого пользователя') closefile(f); <-------- вторая ошибка ЗАКРЫВАЕШЬ ФАИЛ А ЦИКЛ продолжаешь, плюс ко всему на каждой строчке делаешь проверку и будет выводится сообщение что нет такого пользователя. Если сторок 10 то десять раз увидишь НЕТ ТАКОГО ПОЛЬЗОВАТЕЛЯ. end; end; end. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Регистрация классов. | Nytlec | Помощь студентам | 1 | 18.01.2009 14:05 |
Регистрация | limon | PHP | 1 | 17.10.2008 10:33 |
Регистрация БД | Gladiator | БД в Delphi | 1 | 05.06.2008 00:09 |
Регистрация и авторизация | zorro | Общие вопросы Delphi | 10 | 09.04.2007 01:14 |