Entwickler-Ecke

Delphi Language (Object-Pascal) / CLX - then anweisung


mircojaeger - Di 07.04.09 08:11
Titel: then anweisung
hi@all,

warum funzt das so nicht?

Delphi-Quelltext
1:
2:
3:
4:
procedure Tfrm_main.btn_showClick(Sender: TObject);
begin
  if rb_schuhe.Checked := true then edt_ausgabe.Text :='groesse 43';
end;


mfg
mircojaeger

Moderiert von user profile iconmatze: Delphi-Tags hinzugefügt


BenBE - Di 07.04.09 08:15

Bitte nutze Delphi-Tags, damit dein Source farbig hervorgehoben wird.
user profile iconmircojaeger hat folgendes geschrieben Zum zitierten Posting springen:
hi@all,

warum funzt das so nicht?

Du hast da doch sicherlich eine Fehlermeldung dazu? ;-)

user profile iconmircojaeger hat folgendes geschrieben Zum zitierten Posting springen:

Delphi-Quelltext
1:
2:
3:
4:
procedure Tfrm_main.btn_showClick(Sender: TObject);
begin
  if rb_schuhe.Checked := true then edt_ausgabe.Text :='groesse 43';
end;


mfg
mircojaeger

Den Farbig markierten Teil einfach weglassen. Siehe hier [http://www.delphi-forum.de/viewtopic.php?t=83487].

Ggf. hilft Dir auch der Crashkurs Delphi [http://www.christian-stelzmann.de/artikel/crashkurs.htm] von user profile iconChristian S.


mircojaeger - Di 07.04.09 08:29

danke!

nächste frage:

Delphi-Quelltext
1:
2:
3:
4:
5:
 if  rb_schuhe.Checked:=false , rb_hose.Checked:=false ,
     rb_polo.Checked:=false , rb_jacke.Checked:=false ,
     rb_hemd.Checked:=false , rb_tshirt.Checked:=false , 
 then
    edt_ausgabe.Text :='Bitte Kleidung auswählen!!!';

wie kann ich "sagen" dass wenn keiner der radiobutton aktiviert ist er die meldung bitte kleidung auswählen anzeigt?
also wie kann ich bei if mehrere dinge abfragen?

mfg
mircojaeger

Moderiert von user profile iconmatze: Delphi-Tags hinzugefügt


Nersgatt - Di 07.04.09 08:38

Das := benutzt man nur für Zuweisungen. Wenn man etwas auf Gleichheit testen möchten, nimmt man nur das =
Außerdem kann man Boolsche Ausdrücke mit NOT negieren. IF not chk.Checked...

Gruß,
Jens


BenBE - Di 07.04.09 08:40

Normal nur eine Frage pro Thread, hier geht's aber mal (ausnahmsweise) ;-)


Delphi-Quelltext
1:
2:
if not (rb_schuhe.Checked or rb_hose.Checked or rb_polo.Checked or rb_jacke.Checked or rb_hemd.Checked or rb_tshirt.Checked) then 
  edt_ausgabe.Text :='Bitte Kleidung auswählen!!!';


mircojaeger - Di 07.04.09 08:42

danke!

werd demnächst immer nur eine frage pro thread machen;-)


Timosch - Di 07.04.09 10:15

Zu allererst solltest du dir vielleicht ein Grundlagentutorial durchlesen...