AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

MESSAGEBOX

Ein Thema von speedax · begonnen am 7. Okt 2009 · letzter Beitrag vom 4. Mai 2011
Antwort Antwort
Seite 1 von 2  1 2   
Änabanäna

Registriert seit: 4. Mai 2011
Ort: Schleswig
3 Beiträge
 
Delphi 6 Personal
 
#1

Aw: Messagebox

  Alt 4. Mai 2011, 15:45
Guten Tag,
ich brauch dringend Hilfe zur MessageBox! Und zwar hab ich versucht, dass sich eine MessageBox öffnet, wenn man den richtigen Namen in ein edit-Feld schreibt und anschließend auf einen Button klickt.
Eine MessageBox hab ich schon und die funktioniert auch, nur bei der anderen funktioniert das nicht.
Hier mein Quelltext:
Code:
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;
Bei der letzten MessageBox passiert gar nichts.

Vorweg, ich hab keine Ahnung von Delphi und muss das für die Schule machen!
Schon mal Danke im Vorraus
Anna-Lena
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.656 Beiträge
 
Delphi 12 Athens
 
#2

Aw: Messagebox

  Alt 4. Mai 2011, 15:47
Schau einmal in die Hilfe, was exit macht.

P.S.: Willkommen in der DP
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Jumpy

Registriert seit: 9. Dez 2010
Ort: Mönchengladbach
1.739 Beiträge
 
Delphi 6 Enterprise
 
#3

Aw: Messagebox

  Alt 4. Mai 2011, 15:58
Es sieht auch nach ein bißchen viel Begin und End aus,...
Ralph
  Mit Zitat antworten Zitat
sHoXx
(Gast)

n/a Beiträge
 
#4

AW: Messagebox

  Alt 4. Mai 2011, 16:02
Es sieht auch nach ein bißchen viel Begin und End aus,...
net nur en bisschen

[EDIT]

Delphi-Quellcode:
procedure TForm1.btn_ausrechnenClick(Sender: TObject);
begin
  if edt_ergebnis.Text ='then
  begin
    Application.MessageBox('Eingabe ungültig','Achtung!',MB_OK);
  end else
  begin
    if edt_name.Text ='Heidithen
    begin
      Application.MessageBox('Du passt am besten mit Peter zusammen','Glückwunsch',MB_OK);
    end;
  end;
end;
aber so schauts schon besser aus
net optimal aber besser
hab jetz auch erstmal feirabend also bis denn

Geändert von sHoXx ( 4. Mai 2011 um 16:07 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.656 Beiträge
 
Delphi 12 Athens
 
#5

Aw: Messagebox

  Alt 4. Mai 2011, 16:02
Stimmt, aber die stören den Ablauf nicht
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
sHoXx
(Gast)

n/a Beiträge
 
#6

AW: Messagebox

  Alt 4. Mai 2011, 16:07
Stimmt, aber die stören den Ablauf nicht
aber mich..irgendwie
  Mit Zitat antworten Zitat
Benutzerbild von Bernhard Geyer
Bernhard Geyer

Registriert seit: 13. Aug 2002
17.222 Beiträge
 
Delphi 10.4 Sydney
 
#7

AW: Messagebox

  Alt 4. Mai 2011, 16:08
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 ='Heidithen
    Application.MessageBox('Du passt am besten mit Peter zusammen','Glückwunsch',MB_OK);
end;
Windows Vista - Eine neue Erfahrung in Fehlern.
  Mit Zitat antworten Zitat
Änabanäna

Registriert seit: 4. Mai 2011
Ort: Schleswig
3 Beiträge
 
Delphi 6 Personal
 
#8

Aw: Messagebox

  Alt 4. Mai 2011, 16:22
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'
Anna-Lena
  Mit Zitat antworten Zitat
alfold

Registriert seit: 29. Jun 2010
Ort: Neustrelitz
393 Beiträge
 
Delphi 7 Enterprise
 
#9

Aw: Messagebox

  Alt 4. Mai 2011, 17:00
Hat doch @Bernhard Geyer geschrieben in #21 wie es geht! Schau dir sein Code an!

Gruss alfold
  Mit Zitat antworten Zitat
Benutzerbild von p80286
p80286

Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
 
FreePascal / Lazarus
 
#10

Aw: Messagebox

  Alt 4. Mai 2011, 17:01
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 ='Heidithen 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
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2   

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 14:48 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz