регистрация(авторизация)

[street-walker]

необходимо написать регистрацию для входа в программу,при регистрации пользователь вводит свой логин и пароль,которые записываются в текстовый файл,а при в ходе в программу файл должен проверятся на введенные логин и пороль.Вот мой код,подскажите пожалуйста что не так в проверке файла на наличие пользователя:

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
   
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
var
f: textfile;
 log:string;
 pas:string;
 person:string;
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); //создание файла, если он там есть, то перезаписываеться (старый удаляеться, новый пустой появляеться)
 //Reset(f); //просто открываем файл для редактирования
 WriteLn(f,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);
end;
end;
end.

[Лукманов Александр]

Какую ошибку выдаёт программа?

Оформляйте код тэгом CODE (#)

[street-walker]

в любом случае выводится сообщение "нет такого пользователя"

[spamer]

При регистрации пользователя, просто записуйте в файл Логин и Пас. При в ходе в программу считывайте эти же данные из файла и проверяйте с теми что ввел пользователь.

P.S. Я бы лучше использовал ini файлы.

[street-walker]

Я в общем-то так и делаю,но при проверке введенных данных пользователем с теми что имеютя в файлене находит,Даже если они там есть

[Лукманов Александр]

if person=(log+' '+pas) then begin
showmessage('есть такой пользователь')
exit
end
else begin
showmessage('нет такого пользователя')
exit
end
closefile(f);

попробуйте так

[street-walker]

все равно,при любом вводе логина и пароля,правильного или неправильного выводится сообщение 'нет такого пользователя'

[street-walker]

ошибка I/O 104

[Лукманов Александр]

log:=Edit1.Text;
pas:=Edit2.Text;
AssignFile(f,'E:\Persons.txt');
if fileexists('E:\Persons.txt') then begin
reset(f);
append(f);
WriteLn(f,log+' '+pas);
closefile(f);
end

[Хитрец]

Чисто из жалости от такого убогого кода исправил твои ошибки извини за прямоту, но так не пишут программы

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 на Е измени обратно, то я переставил для себя.