Undefinierter Bezeichener, aber warum ?

[alcaeus]

Hi Äfan!

Erstens mal den Code mit delphi formatiert und mit einrückungen:

Delphi-Quellcode:

procedure TfrmLogin.LoginOKClick(Sender: TObject);
begin
  If LoginName.Text = '' then
    MessageDlg('Bitte geben Sie einen Namen ein', mtInformation, [mbOK], 0)
end;
begin
If not LoginName.Text = '' then
  NameVar := LoginName.Text;
  frmLogin.Close;
end;

Eigentlich müsste er so aussehn:

Delphi-Quellcode:

procedure TfrmLogin.LoginOKClick(Sender: TObject);
begin
  If LoginName.Text = '' then
    MessageDlg('Bitte geben Sie einen Namen ein', mtInformation, [mbOK], 0)
  else
  begin
    NameVar := LoginName.Text;
    frmLogin.Close;
  end;
end;

Ich bin mir bei deinem else-Zweig aber nicht sicher, evtl. musst du das frmLogin.Close aus dem begin-end-Block rausnehmen.

Greetz
alcaeus