Warum stecke ich hier in einer Endlosschleife?
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var a,b,a1,b1,s : string;
var flag : byte;
begin
a := edit1.text;
b := edit2.text;
s := 'select Name,Passwd from ausbilderlogin';
query1.close;
Query1.Sql.Clear;
Query1.Sql.Add(s);
Query1.ExecSQL;
Query1.Active:=true;
Query1.First;
while not Form1.Query1.Eof do
begin
a1:= query1.Fieldbyname ('Name').AsString;
b1:= query1.Fieldbyname ('Passwd').AsString;
if (a = a1) and (b = b1) then flag := 1 else query1.Next;
end;
if flag <> 1 then showmessage('Falscher Loginname oder Passwort');
if flag = 1 then showmessage('Sie sind nun als '+a+' eingeloggt!');
end;