TObject.Name ????

[TOC]

Hi!

Es gibt in TComponent ein Feld das extra für solche Sachen gedacht ist und das aber leider viele Leute gar nicht kennen : "TComponent.Tag". Dieser Tag ist einfach eine Integer-Zahl die man in seinem Objekt belegen kann und dadurch ist es ganz einfach und sehr schnell mehrere Komponenten zu unterscheiden.

Nummeriere Deine TKomponenten im Object-Inspector einfach in ihren Tag-Feldern ab 1 in aufsteigender Reihenfolge durch. Dann könnte Deine OnClick-Prozedur etwa so aussehen:

Delphi-Quellcode:

procedure TForm1.ButtonClick(Sender: TObject);
begin
  // Abfragen welcher Knopf gedrückt wurde und entsprechende Aktion ausführen
  Case TComponent(Sender).Tag of
    1 : Label1.Caption:='Es wurde Knopf 1 gedrückt!';
    2 : Label1.Caption:='Es wurde Knopf 2 gedrückt!';
    3 : Label1.Caption:='Es wurde Knopf 3 gedrückt!';
  End;
  // Egal welcher Knopf gedrückt wurde immer ausführen
  Beep;
end;

So mache ich das immer in meinen Programmen wenn mehrere Komponenten dieselbe Methode aufrufen was den Vorteil bietet das dort Dinge gemacht werden können die bei allen Komponenenten geschehen sollen und auch Aktionen die abhängig von der Komponente selbst sind und sich unterscheiden.

Gerade wenn eine Anwendung zum Beispiel innerhalb einer Schleife irgendwelche Objekte Erzeugt ist es praktisch (und einfach) den Zählerwert in das Tag-Feld der Komponente zu schreiben.

Grüsse von TOC!

[angos]

o super,

danke dir für die info :)

[oldmax]

Hi
Also, wenn's am Typ der Variable ElementNr liegt, das die Case Anwendung ins Stolpern kommt... dann macht doch ganz einfach die ElementNr zum Integer und setzt ein StrtoInt ein
Zur Geschwindigkeit hab ich mich ja schon geäußert...

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObejct); 
Var RefName    : String; 
    ElementNr  : Integer; // hier Korrektur
    xPos       : Integer; 
begin 
  
  RefName:= (Sender as TComponent).Name; 
  xPos:=Pos('_',RefName); // ergibt die Stelle vo Anfang der Zahl 
  ElementNr:=StrToInt (Copy(RefName,xPos+1, Length(RefName)-xPos)); // auch Korrektur
  Case ElementNr of 1: tu_eins; // und natürlich hier keine Strings...
                    2: tu_Zwei; 
                    ...... 
  end;        
end;

Ach ja zu Tags. Keine Frage, ist eine saubere Lösung, nur bei entsprechend vielen Tags mag's denn doch einfacher sein, eben über den Namen zu gehen, als wie über Tags, wo ich aufpassen muß, diese nicht doppelt zu vergeben. Bei der Namensgebung meckert der Editor wenigstens gleich...
Aber wie schon oft zitiert, es führen viele Wege in die Hölle.... oder war's nach Rom ?
Gruß oldmax