dynamisch auf Componenten zugreifen

[jangbu]

Hallo,

möchte um nicht alle Label_1 bis Label_99 einzeln initialisieren zu müssen, dies über eine Schleife machen. Wie kann ich die Objekte Label_1 bis Label_99 dynamisch ansprechen?

Delphi-Quellcode:

for i:=1 to 99
  label + '_' + IntToStr(i).Text = 'blabla';  

???

[edit=mkinzler]Delphi-Tag eingefügt Mfg, mkinzler[/edit]

[Die Muhkuh]

Hi,

schau Dir mal FindComponent an.

[DeddyH]

Bevor wieder jemand mit FindComponent kommt: pack Dir die Labels in ein Array oder eine TObjectList und arbeite das/die dann ab. Wenn Du eine TObjectList verwendest, denke aber daran, OwnsObjects auf false zu setzen.

[edit] Zu spät :? [/edit]

[jangbu]

danke!

jangub

[Andreas L.]

Falls die Labels alle auf der selben Komponente liegen (Form, Panel, etc.) gehts auch so:

Delphi-Quellcode:

var
  i: Integer;
begin
  for i := 0 to ComponentCount -1 do
  begin
    if Components[i] is TLabel then
      (components[i] as TLabel).Text := 'blubb';
  end;
end;

[shmia]

Stehen für den Benutzer wichtige Informationen in den Labels?
Falls ja, dann nimm TEdit mit ReadOnly=True anstelle der Labels.

Vorteil für den Benutzer: er kann Texte markieren und kopieren.

Es gibt leider so viele ungeschickte Programme, die z.B. Hypherlinks, Seriennummern, usw anzeigen und der arme Benutzer muss alles abschreiben. :wall:
Bestes Beispiel ist das Infofenster des Internet Explorer.

[DeddyH]

Zitat:

Zitat von Andreas L.

Falls die Labels alle auf der selben Komponente liegen (Form, Panel, etc.) gehts auch so:

Delphi-Quellcode:

var
  i: Integer;
begin
  for i := 0 to ComponentCount -1 do
  begin
    if Components[i] is TLabel then
      (components[i] as TLabel).Text := 'blubb';
  end;
end;

Wenn Du den Typ schon mit "is" geprüft hast, kannst Du Dir das anschließende "as" sparen. Und der Code geht in Ordnung, wenn es alle Labels betrifft, ansonsten geht das so nicht.

[Andreas L.]

Zitat:

Zitat von DeddyH

Wenn Du den Typ schon mit "is" geprüft hast, kannst Du Dir das anschließende "as" sparen.

Du meinst ich sollte dann einen Hardcast TLabel(Components[i]) machen? Wo ist da der Unterschied?

[DeddyH]

Ich will nicht die Hand dafür ins Feuer legen, aber m.W.n. prüft as erneut mit is den Typ ab und wirft im Fehlerfall eine Exception. Ein harter Typecast ist daher vermutlich etwas schneller.

[mirage228]

Zitat:

Zitat von DeddyH

Ich will nicht die Hand dafür ins Feuer legen, aber m.W.n. prüft as erneut mit is den Typ ab und wirft im Fehlerfall eine Exception. Ein harter Typecast ist daher vermutlich etwas schneller.

Kannst Du ruhig tun. So ists nämlich ;)