Problem mit IF-ANWEISUNG

[Störtebeker]

Hallo,

irgendwie stehe ich auf dem Schlauch:
bin gerade dabei meinen Login-Dialog zu proggen und habe gerade probleme mit der IF-ANWEISUNG.

Folgendes: Die Benutzerangaben sollen bereits im Programm vordefiniert sein, das mache ich über eine IF-ANWEISUNG.

Delphi-Quellcode:

procedure TForm6.Button1Click(Sender: TObject);
begin
if
Edit1.Text:='Benutzername' and Edit2.Text:='Passwort'
then
Form1.show;
Form6.Hide;
else
Application.Terminate;
end;

Nun meckert Delphi rum:

Zitat:

[ERROR]...: Incompatible types: 'String' and 'procedure, untyped pointer or untyped parameter'
[ERROR]...: END expected but ELSE found

Ich hatte schonmal einen Login-Dialog dieser Art geschrieben, der auch funktioniert hat. Leider hat sich eine Zeit lang später mein WINDOWS verabschiedet. Sonst hätte ich da gucken können. Aber keine Sorge, war nur ein Testprogramm.

mfG
Störtebeker

P.S.: Die Benutzerangaben, die ich hier verwendet habe, sind natürlich nicht die für mein Programm.

[mkinzler]

Delphi-Quellcode:

Edit1.Text = 'Benutzername' and Edit2.Text = 'Passwort'

[Störtebeker]

Also an dem Doppelpunkt kann es nicht gelegen haben.

Zitat:

[ERROR]...: Operator not applicable to this operand type
[ERROR]...: END expected but ELSE found

mfG
Störtebeker

[Dunkel]

Delphi-Quellcode:

procedure TForm6.Button1Click(Sender: TObject);
begin
  if (Edit1.Text='Benutzername') and (Edit2.Text='Passwort') then
    begin
      Form1.show;
      Form6.Hide;
    end
  else
    Application.Terminate;
end;

Ordentliche Code-Formatierung ist schon was feines! :wink:

[mkinzler]

Delphi-Quellcode:

if Edit1.Text = 'Benutzername' and Edit2.Text = 'Passwort' then
begin
    Form1.show;
    Form6.Hide;
end
else
begin
  Application.Terminate;
end;

[quendolineDD]

Delphi-Quellcode:

procedure TForm6.Button1Click(Sender: TObject);
begin
if (Edit1.Text = 'Benutzername') AND (Edit2.Text = 'Passwort') then
begin
Form1.show;
Form6.Hide;
end else
Application.Terminate;
end;

[Störtebeker]

Danke. Es geht jetzt.

Zusammen mit dem Tipp: "THEN BEGIN ... END ELSE ..." waren es noch die fehlenden Klammern.

mfG
Störtebeker