Webmaster Forum Logo Part 1 Webmaster Forum Logo Part 2
Webmaster Forum Logo Part 3
     
 
  :: Anmeldung

Benutzername:

Registrierung...

Passwort:

Passwort vergessen?

angemeldet bleiben


  
  :: Umfrage
Welche sozialen Netzwerke benutzt du regelmäßig?

 Facebook
 Webmaster - WebspaceWebmaster - WebspaceWebmaster - Webspace 73%
 keines
 Webmaster - WebspaceWebmaster - WebspaceWebmaster - Webspace 22%
 Google+
 Webmaster - WebspaceWebmaster - WebspaceWebmaster - Webspace 19%
 Twitter
 Webmaster - WebspaceWebmaster - WebspaceWebmaster - Webspace 11%
 Xing
 Webmaster - WebspaceWebmaster - WebspaceWebmaster - Webspace 6%
 schülerVZ
 Webmaster - WebspaceWebmaster - WebspaceWebmaster - Webspace 6%
 meinVZ
 Webmaster - WebspaceWebmaster - WebspaceWebmaster - Webspace 4%
 studiVZ
 Webmaster - WebspaceWebmaster - WebspaceWebmaster - Webspace 4%
 MySpace
 Webmaster - WebspaceWebmaster - WebspaceWebmaster - Webspace 2%
 LinkedIn
 Webmaster - WebspaceWebmaster - WebspaceWebmaster - Webspace 2%

 ges. 393 Stimmen
 
  :: Buttons

Valid XHTML 1.0 Transitional

Dabei seit: 09.11.2007

Beiträge: 487

 

1 Zum Seitenanfang

Samstag, 1. November 2008, 16:08

Delphi: Name einer Przedur durch Variable ansprechen

Hi!
Eine Frage zu Delphi:
Ich habe in meinem Programm folgenden Quelltext für 37 Buttons stehen, nur das sich der Array immer passend mit dem button änder (bei button2.click ist der array knopf[2] usw.). Nun meine Frage:
Kann ich den Namen der Prozedur nich irgendwie als Variable ansprechen und das ganze dann durch eine Schleife laufen lassen?

Quellcode

1
2
3
4
5
6
7
8
9
procedure TForm1.button1Click(Sender: TObject);
begin
 if (x<6) and (knopf[1]=false) then
 begin
  x := x+1;
  knopf[1] := true;
  button1.caption := 'X';
 end;
end;


Also in etwa:

Quellcode

1
2
3
4
5
while (x>=36) do
begin
x:=x+1
knopf[x]:=x
procedure TForm1.button'knopf[x]Click(Sender: TObject);


Gruß, Twister
Wir freuen uns über jeden Besuch!
Sturmjagd im Münsterland
SCMSL
 

heinervdm

Technik-Admin

Dabei seit: 02.10.2002

Beiträge: 3 772

 

2 Zum Seitenanfang

Sonntag, 2. November 2008, 09:11

Bei Scriptsprachen ist so etwas möglich, bei kompilieren Sprachen allerdings nicht.
Was du aber machen könntest, wäre für alle Buttons den gleichen Listener zu registrieren und dann in der procedur den Button abfragen (Ich hoffe mal das geht in Delphi, habe früher nur Pascal Programmiert ;) )
Über mich: www.heinervdm.de
Persönlich Mitteilungen an mich bitte als PN (nicht Email) hier im Forum. ICQ und Skype bitte nur in Notfällen.
 

Ähnliche Themen