Hallo,
ich möcht einen Adminbereich Programmieren

i

markieren

Code:

procedure TForm1.Button1Click(Sender: TObject);
begin
IF Trim( Edit1.text ) = Trim( 'Admin' ) then
else
Begin
ShowMessage('Benutzername ist nicht korreckt');
end;
IF Trim( Edit2.text ) = Trim( 'Pass' ) then
else
Begin
ShowMessage('BPasswort ist nicht korreckt');
end; Form2.show

ch bekoome bei nicht übereinstimmen jeweils eine Fehlermeldungung das Form2 wird trotzdem geöffnet.

Was habe ich falsch gemacht

Wie wäre es mit:

markieren

Delphi-Quellcode:

 If (trim(edit1.text)= 'Admin') AND (trim(edit2.Text)='Pass') Then
 Form2.Show
 Else ShowMessage('Anmeldung passt nicht');

Einfach nach dem ShowMessage ein Exit einfügen, damit die Porzedure im Fehlerefall verlassen wird. Als Alternative kannst du auch anstelle von ShowMessage eine Exception auslösen. Damit wird die Prozedure auch sofort verlassen. Im foglenen Beispiel habe ich deinenn Code mal noch soweit angepasst, dass du da keine leere "if else" Bedingung hast:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  IF Trim( Edit1.text ) <> 'Admin' then // Trim ist bei den Konstanten Strings 'Admin' und 'Pass' überflüssig
  Begin
    // Entweder so:
    ShowMessage('Benutzername ist nicht korreckt');
    Exit;
  end;
  IF Trim( Edit2.text ) <> 'Pass' then
  Begin
    // ... oder mit einer Exception so:
    raise Exception.Create('BPasswort ist nicht korreckt');
  end;
  Form2.show;

Noch ein Tipp: Benenne alle Komponenten, die du im Code irgendwie ansprichst, mit einem verstänldiche nNamen. Anstatt Edit1 edtLoginName und Edit2 edtPassword. Auch die Form2 solltest du entsprechend benennen.

Sieht für mich etwas ungewöhnlich aus, würde das so schreiben, mit nicht optimierten, aber hoffentlich gut verständlichem Code :

zusammenfalten · markieren

Delphi-Quellcode:

var istok:boolean:=true;
IF Trim( Edit1.text ) <> Trim( 'Admin' ) then
begin
  istok:=false;
  ShowMessage('Benutzername ist nicht korrekt');
end else
begin
 IF Trim( Edit2.text ) <> Trim( 'Pass' ) then
 begin
   istok:=false;
   ShowMessage('BPasswort ist nicht korrekt');
 end;
end;
if istok then
  Form2.show;

Danke Für Eure Hilfe

Steffen