TComponent + Array

[Premutos]

wie bekomm ichzb. "tbutton" und "TLabel" in ein aray!?

Code:

comps : array['a'..'z'] of tcomponent;
begin

comps['a'] := tbutton;

//geht ja nicht :/ ??

[tigerman33]

Dafür ist es der falsche Typ. Das muss deklariert sein als:
var comps: array['a'..'z'] of TComponentClass; Aber bist du dir sicher, dass du wirklich die Klassentypen speichern willst, und nicht Instanzen?

[Premutos]

Zitat von tigerman33:

Dafür ist es der falsche Typ. Das muss deklariert sein als:
var comps: array['a'..'z'] of TComponentClass; Aber bist du dir sicher, dass du wirklich die Klassentypen speichern willst, und nicht Instanzen?

jo, bin mir sicher
danke dir hab mit der benutzung von klassen wenig erfahrung!

[Premutos]

hmm hab schon das nächste problem

habe das array mit den kompo klassen gefüllt und möchte jetzt überprüfen ob sich diese klasse welche in comp steckt im array befindet!

Code:

comps : array['a'..'z'] of TComponentClass;
Comp: TComponent;

begin

comps['a'] := Tbutton;
comps['b'] := TLabel;
...
comp:=Form1.Components[x];

if comp is (im array) then 
(Comp as .(".").).Name;

[tigerman33]

Das geht ganz normal mit dem =-Operator:

Delphi-Quellcode:

var i: integer;
begin
...
for i := low(comps) to high(comps) do
  if comp = comps[i] then
    (Comp as comps[i]).Name;
...

Aber ich wiederhole meine Frage: Wirklich Klassentypen?
Auf TComponent.Name kannst du nämlich nur in Instanzen aus zugreifen, nicht in Klassen!

[Premutos]

ok habs hin bekommen , danke dir