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 ;)

[Andreas L.]

Zitat:

Zitat von 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 ;)

Wir reden hier aber von wenigen Millisekunden, oder? Also für ein normales, nicht zeitkritisches Programm ist es egal welche der beiden Varianten man verwendet. BTW finde ich die Variante mit as besser lesbar.

[DeddyH]

Natürlich geht es nicht um Stunden. Wenn ich zwingend ein Objekt eines bestimmten Typs erwarte, benutze ich auch as, gehe ich aber alle Objekte durch und benutze is zur "Filterung", mache ich anschließend einen harten Typecast. Damit bin ich bislang immer gut gefahren, aber das ist sicherlich zu einem gewissen Grad Geschmackssache.

[mirage228]

Zitat:

Zitat von Andreas L.

Wir reden hier aber von wenigen Millisekunden, oder? Also für ein normales, nicht zeitkritisches Programm ist es egal welche der beiden Varianten man verwendet. BTW finde ich die Variante mit as besser lesbar.

Das mag sein. Es ist dennoch eine völlig unnötige Redundanz in diesem Fall, wozu auch zwei mal einen "is" Aufruf erledigen lassen (einmal explizit und einmal implizit)?
Wie DeddyH schon schrieb, wenn man wirklich einen bestimmten Typ erwartet und zu diesem casten möchte, dann sollte man "as" nehmen, in diesem Fall ist jedoch der Ansatz mit "is" und dem harten Typecast vorzuziehen.

[DeddyH]

Vergleichbar mit

Delphi-Quellcode:

if Assigned(Obj) then
  Obj.Free;

(Das hab ich früher auch so gemacht :oops: )