check username/password

[FBrust]

Hello,

in your while-loop, you should place a "Table.Next":

Delphi-Quellcode:

procedure TForm1.Checkuserdata(Sender: TObject);
begin
  Table.Open;
  Table.First;
  while not Table.Eof do begin
    if (Edit1.Text = Table.FieldByName('username').AsString) and
       (Edit2.Text = Table.FieldByName('password').AsString)
    then begin
      Showmessage('match the user data');
      exit;
    end;
    Table.Next;
  end;
end;