Code:
function TForm1.CheckPassword(const User, Passwort : string):boolean;
begin
Result := False;
Table1.Open;
if not User.Locate('UserName', User, []) then
Exit; // user nicht gefunden
// Vergleiche "pw" mit Passwort in Tabelle
Result := Table1.FieldByName('Password').AsString = pw;
Table1.Close; // Benutzertabelle zumachen
end;
danke das wußt ich noch nicht
bekomme aber jetzt folgenden Fehler:
Code:
[Fehler] Unit1.pas(82): Record, Objekt oder Klassentyp erforderlich
hab versucht die var umzubennenen, hat aber nicht geklappt
