Entwickler-Ecke

Sonstiges (Delphi) - Sender in Gruppen fassen


Bockscar - Fr 17.02.06 21:10
Titel: Sender in Gruppen fassen
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


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 user profile iconChristian S.: Delphi-Tags hinzugefügt


Ironwulf - Fr 17.02.06 21:12
joa mit dem tag würde das gehen

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


Bockscar - Fr 17.02.06 21:25

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 - Fr 17.02.06 21:34

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;


Lannes - Fr 17.02.06 23:23
Hallo, oder auch so:

Delphi-Quelltext 
1:
2:
3:
4:
5:
 
case TLabel(Sender).Tag of
  0..36  : MachDies;
  37     : MachDas;
  38..40 : OderWasAnderes;
end:


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!