IF Abfrage

hedie · Verfasst: So 09.01.05 17:17

Hallo zusammen

ich habe folgendes problem

Quelltext

1:	if editto.Text := ('hedie2@tiscali.ch') then schowmessage ('nene') goto a

bin anfänger komme nicht so gut draus

deshalb wass ist an diesem code falsch und die sprungmarke "a" bei goto
wie muss die aussehen? :?:

grüsse
hedie

_________________
Grüsse hedie
hört auf traurig zusein hört lieber radio Basilisk

WeBsPaCe · Verfasst: So 09.01.05 17:31

Also das ist glaub ich ungefähr das, was du willst:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

label
a;
begin
if editto.Text = 'hedie2@tiscali.ch' then ShowMessage('nene') else goto a;
a:
end;

Das wäre ein Beispiel, wo nach der Abfrage nach a gegangen wird, wenn die Abfrage vorher nicht eintrifft. Ansonsten würd ich das nicht mit goto machen:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

begin
if editto.Text = 'hedie2@tiscali.ch' then begin
ShowMessage('nene');
//Anweisungen die in a stehen.
end;
end;

_________________
Steht der Bauer im Gemüse, hat er später grüne Füße.

hedie · Verfasst: So 09.01.05 17:34

vielen dank für deine antwort
aber ich will
dass wenn man im mail programm mene e-mail adresse eingibt das man dan den
mail process nicht beenden kann wil man dan zu a kommt und da das programm
zu ende ist

grüsse hedie

_________________
Grüsse hedie
hört auf traurig zusein hört lieber radio Basilisk

WeBsPaCe · Verfasst: So 09.01.05 17:49

Wie????????? :shock:

Nochmal bitte!!

_________________
Steht der Bauer im Gemüse, hat er später grüne Füße.

hedie · Verfasst: So 09.01.05 17:53

ALSO ICH HABE EIN SPEZIELLES E-MAIL PROGRAMM GEMCHT (ne art spam

) natürlich nicht
für diesen zweck :lol:

und ich will das der anwender nicht meine e-mail als
empfenger eintrage kann (logisch oder :wink:

)
deshalb will ich das der sende button vor dem senden prüft ob meine e-mail in der
textbox steht wenn ja dann sol eine message die nachricht "nene" ausgeben und
mit der schprung marke a oder auch einer anderen sol der sende prozess beendet werden

ja hoffe man kommt draus

grüsse
hedie

_________________
Grüsse hedie
hört auf traurig zusein hört lieber radio Basilisk

WeBsPaCe · Verfasst: So 09.01.05 17:58

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

begin
if editto.Text = 'hedie2@tiscali.ch' then begin
ShowMessage('nene');
Exit;
end;
//dein Sendeprozess
end;

_________________
Steht der Bauer im Gemüse, hat er später grüne Füße.

hedie · Verfasst: So 09.01.05 18:01

vielen dank hat toll geklappt

bist ein super helfer/in

grüsse hedie

_________________
Grüsse hedie
hört auf traurig zusein hört lieber radio Basilisk

IngoD7 · Beiträge: 629 D7

Wenn dein "Sendeprozess" eine Procedure ist, so kannst du einfach schreiben

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure Sendeprozess;
begin  
if editto.Text = 'hedie2@tiscali.ch' then 
  begin 
  ShowMessage('nene');
  exit;    //<---- bricht die Procedure ab
  end
else
  begin
  ... // "Sendeprozess" geht weiter
  end;
end;

NACHTRAG: Bin ja soooo langsam. :cry:

hedie · Verfasst: So 09.01.05 18:30

ach macht doch nichts ingo7 weil nur der beitrag zählt und nicht das ergebnis :wink:

grüsse
hedie

_________________
Grüsse hedie
hört auf traurig zusein hört lieber radio Basilisk

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme