MESSAGEBOX

[Bernhard Geyer]

Zitat von DeddyH:

Stimmt, aber die stören den Ablauf nicht

Doch. Evtl. macht ja wegen dem exit die Funktion nicht das was sie soll

Delphi-Quellcode:

procedure TForm1.btn_ausrechnenClick(Sender: TObject);
begin
  if edt_ergebnis.Text ='' then
    Application.MessageBox('Eingabe ungültig','Achtung!',MB_OK);
  else if edt_name.Text ='Heidi' then
    Application.MessageBox('Du passt am besten mit Peter zusammen','Glückwunsch',MB_OK);
end;

[Änabanäna]

Vielen Dank schon mal für die schnelle Hilfe.

Also den Quelltext hab ich schon mal ersetzt. Nur jetzt kommt immernoch nicht die Messagebox, dass Heidi mit Peter zusammen passt. Wenn ich nun irgendetwas in das erste edit-Feld eingebe, dann kommt die MessageBox 'Eingabe ungültig' und die soll eigentlich bei dem zweiten edit-Feld kommen.
Ehrlich gesagt, bin ich mir auch gar nicht so sicher, ob dieser Teil richtig ist

Code:

if edt_name.Text ='Heidi' then

Ist das richtig? Denn ich möchte ja, dass wenn man Heidi in das erste edit-Feld eingibt die MessageBox kommt ' Du passt am besten mit Peter zusammen'

[alfold]

Hat doch @Bernhard Geyer geschrieben in #21 wie es geht! Schau dir sein Code an!

Gruss alfold

[himitsu]

Statt einer MessageBox würde ich Anfängern eher den MessageDlg empfehlen.

Denn Application.MessageBox ist fast eine direkte Schnittstelle zu MessageBox (WinAPI),
wärend [OH][MessageDlg[/OH] einen VCL-eigenen Dialog darstellt und somit auch mehr anderen Delphi-Funktionen ähnelt.

[p80286]

Ich hab so leise Zweifel ob das überhaupt läuft:

Delphi-Quellcode:

procedure TForm1.btn_ausrechnenClick(Sender: TObject);
begin
  if edt_ergebnis.Text ='' then exit;
  begin
    Application.MessageBox('Eingabe ungültig','Achtung!',MB_OK);
    exit;
  end;
  begin
    if edt_name.Text ='Heidi' then exit;
    begin
      Application.MessageBox('Du passt am besten mit Peter zusammen','Glückwunsch',MB_OK);
      exit;
end;

Und in Welchem TEdit.Text soll was stehen damit Dein Programm richtig reagiert?

Gruß
K-H

[alfold]

Was soll den diese ewige EXIT

Delphi-Quellcode:

procedure TForm1.btn_ausrechnenClick(Sender: TObject);
begin
  if edt_ergebnis.Text ='' then exit;//<--- weg damit
  begin
    Application.MessageBox('Eingabe ungültig','Achtung!',MB_OK);
    exit;//<--weg damit
  end;
  begin//<--weg damit
    if edt_name.Text ='Heidi' then exit;//<--weg damit
    begin
      Application.MessageBox('Du passt am besten mit Peter zusammen','Glückwunsch',MB_OK);
      exit;//<--weg damit
    end;
end;

[DeddyH]

So, nochmal das Ganze. Da wir Dein Projekt ja nicht kennen rate ich mal:

Delphi-Quellcode:

procedure TForm1.btn_ausrechnenClick(Sender: TObject);
begin
  if edt_name.Text = '' then
    Application.MessageBox('Eingabe ungültig', 'Achtung!', MB_OK)
  else if edt_name.Text = 'Heidi' then
    Application.MessageBox('Du passt am besten mit Peter zusammen', 'Glückwunsch', MB_OK);
end;

Vermutlich soll ja in beiden Fällen das Edit für den Namen ausgewertet werden, oder etwa nicht?