TObject.Name ????

[Tumm]

Hi

Kann man eigentlich den namen eines TObjects herausfinden? Klasse und so geht ja. Ich bräuchte das in einem OnClick Ereignis, dass für mehrere Komponenten eingsetzt wird. Nun soll das Programm herausfinden, welche Komponente ihm das gesendet hat, damit ich mit dieser dann weiterarbeiten kann.

Tumm

[sh17]

wenn Deine Objekte über Namen verfügen, kannst Du es so machen:

Delphi-Quellcode:

procedure OnClick(Sender : TObject);
begin
  if Sender is TObjectXY then
  begin
    if TObjectXY(Sender).Name = 'bla' then
      tuwas;
  end;


end;

[jbg]

Du hast doch eine Referenz auf die Komponente (Sender-Variable). Vergleiche die doch mit den "original" Referenzen der Komponenten. Das geht allemal schneller als ein String-Vergleich.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObejct);
begin
  if Sender = btnOk then
    ...
  else if Sender = btnCancel then
    ...


  if (Sender as TComponent).Name = 'btnOk' then
    ...
  else if (Sender as TComponent).Name = 'btnCancel' then
    ...
end;

[oldmax]

Hi
Also, ich glaube nicht, das bei einem Button - Ereignis die Geschwindigkeit eine Rolle spielt... :coder:
Also, um nicht nur 1 oder 2 sondern n-Objekte zu verarbeiten wäre die Lösung schon in der Stringform des Namens..
Name z.B. BtTaste_1, BtTaste_2, .. BtTaste_n

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObejct); 
Var RefName    : String;
    ElementNr  : String;
    xPos       : Integer;
begin 
  
  RefName:= (Sender as TComponent).Name;
  xPos:=Pos('_',RefName); // ergibt die Stelle vo Anfang der Zahl
  ElementNr:=Copy(RefName,xPos+1, Length(RefName)-xPos); // ergibt den Zahlenanteil des Namens
  Case ElementNr of '1': tu_eins;
                    '2': tu_Zwei;
                    ......
  end;       
end;

Ich garantier euch, bevor ihr daran gedacht habt, die Maustaste loszulassen ist diese Procedure abgearbeitet...
Manchmal ist's einfacher, auf die Bearbeitungszeit zu pfeifen....
Gruß oldmax

[yörsch]

HAI Zusammen, :hi:

Zitat:

Zitat von oldmax

Ich garantier euch, bevor ihr daran gedacht habt, die Maustaste loszulassen ist diese Procedure abgearbeitet...Manchmal ist's einfacher, auf die Bearbeitungszeit zu pfeifen....

da hat oldmax einfach recht! es ist ja keine Echtzeitprogrammierung mit allen möglichen Berechnungen um z.B. eine Anlage zu steuern.
Für Menschen sind 10ms sehr kurz, ein PC kann da schon so manche
Berechnung machen... :balloon:
Und wem es noch nicht aufgefallen ist , heut íst ROSENMONTAG :party:

[TBx]

Moin!

Dennoch gehe ich davon aus, dass die Case-Anweisung in die Hose geht.

Ein String ist kein ordinaler Typ.
Gruß

Thomas

[Robert Marquardt]

TObject hat noch keinen Namen. Erst fuer TComponent wird ein Name bedeutsam. Selbst dann ist der Name aber nicht notwendig.
Die Objekt-Referenz selbst ist ja ein eindeutiger Bezeichner fuer das Objekt.
Wer seine Komponenten per Name sucht, der verwaltet nicht vernuenftig.

[Muehle]

zu OnlineKater :

Ich denke chars wie 'a' , 'b' usw. ... fkt.
noch in der Case Struktur. Da nimmt Delphi zum
Vergleich den numerischen Code (Ordinal) des Char-Zeichens.

[TBx]

Zitat:

Zitat von Muehle

Ich denke chars wie 'a' , 'b' usw. ... fkt.

Das schon, aber die in der Case-Anweiseung referenzierte Variable ist vom Typ String :-D

Gruß

Thomas

[angos]

Zitat:

Zitat von Robert Marquardt

TObject hat noch keinen Namen. Erst fuer TComponent wird ein Name bedeutsam. Selbst dann ist der Name aber nicht notwendig.
Die Objekt-Referenz selbst ist ja ein eindeutiger Bezeichner fuer das Objekt.
Wer seine Komponenten per Name sucht, der verwaltet nicht vernuenftig.

Hi,

wie suchst du die Komponenten. Hast du für diesen Fall eine bessere Möglichkeit?

[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