TObject.Name ????

[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