MySQL Frage

[sungamer]

Hi,
ich habe diesen Code:

Delphi-Quellcode:

procedure TForm2.Button2Click(Sender: TObject);
var
query: string;
passwort: string;
ex: boolean;
begin
query := ('SELECT `passwort` FROM `user` WHERE 1 AND `user` LIKE "'+Edit1.Text+'"');
//showmessage(query);
FResult := FMysql.query(query, true, ex);
//Hier will ich prüfen ob die Variable leer ist, wenn sie leer ist wurde der Benutzername nicht //gefunden:
if -------(FResult) then begin
passwort := FResult.FieldValue(0);
if strtoint(passwort) = strtoint(edit2.Text) then
showmessage('Eingeloggt')
else
showmessage('Falsches Passwort!')
end

else
showmessage('Falscher Benutzername!');

end;

Ich weis nicht wie ich prüfe ob die Variable leer ist!
Bin noch Anfänger in Delphi.


MFG
sungamer

[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

[sungamer]

SUPER! Es geht alles!
*Danke* :cheers: