MySQL Frage

[dataspider]

Hi,

ich nehme mal an, dass FResult irgendein Nachfahre von TDataSet ist.
Dann sollte es wie folgt gehen:

Delphi-Quellcode:

procedure TForm2.Button2Click(Sender: TObject);
var
  query: string;
  ex: boolean;
begin
  query := ('SELECT `passwort` FROM `user` WHERE 1 AND `user` LIKE "'+Edit1.Text+'"');
  FResult := FMysql.query(query, true, ex);
  if not FResult.Eof then
  begin
    if FResult.FieldValue(0) = strtoint(edit2.Text) then
      showmessage('Eingeloggt')
    else
      showmessage('Falsches Passwort!')
  end
  else
    showmessage('Falscher Benutzername!');
end;

Cu, Frank