Sender in Gruppen fassen

Bockscar · Beiträge: 105

Guten Abend.

Ich habe folgende Frage:

Ich kann ja z.b schreiben:

Delphi-Quelltext

1:
2:
3:

if sender = label1 then X
if sender = label2 then X
...

und dann

if sender = label 40 then Y

ich könnte ja jetzt 39 ORs dazwischen setzen

markieren

Delphi-Quelltext

1:
2:

if sender = label1 or label2 or ... then X
 else Y;

kann ich irgendwie SENDER auch unter eine gruppe fassen?
Durch einen gemeinsamen TAG oder sowas?

Und wie muss dann der check aussehen? IF ... then ?

Vielen Dank im VOrraus

Moderiert von Christian S.: Delphi-Tags hinzugefügt

Ironwulf · Beiträge: 733 Erhaltene Danke: 2

joa mit dem tag würde das gehen

markieren

Delphi-Quelltext

1:	If Sender(TLabel).Tag = 1 Then X

Bockscar · Beiträge: 105

markieren

Delphi-Quelltext

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

procedure TSpielflaeche.table_click(Sender: TObject);
var bet :integer;
begin
bet := Sender(TLabel).Tag;
If (Sender(TLabel).Tag < 37) then croupier.brett_click('plein',bet);
end;

wieso geht das nicht? Da wird immer gesagt OPERATOR oder SEMIKOLON fehlt

Gausi · Verfasst: Fr 17.02.06 21:34

markieren

Delphi-Quelltext

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

procedure TSpielflaeche.table_click(Sender: TObject);
var bet :integer;
begin
bet := (Sender as TLabel).Tag;
If (bet < 37) then croupier.brett_click('plein',bet);
end;

_________________
We are, we were and will not be.

Lannes · Verfasst: Fr 17.02.06 23:23

Hallo, oder auch so:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

case TLabel(Sender).Tag of
  0..36  : MachDies;
  37     : MachDas;
  38..40 : OderWasAnderes;
end:

_________________
MfG Lannes
(Nichts ist nicht Nichts) and ('' <> nil ) and (Pointer('') = nil ) and (@('') <> nil )

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme