D7 FindComponent über .tag und Caption

[nahpets]

Delphi-Quellcode:

var
  i : Integer;
begin
  while not qry.Eof Do begin
    for i := 0 to ComponentCount - 1 do begin
      if not (Component[i] is TPanel) then continue;
      if TPanel(Component[i]).Tag = qry.FieldByName('Spalte1').AsInteger then begin
        TPanel(Component[i]).Caption := qry.FieldByName('Spalte2').AsString;
      end;
    end;
    qry.Next;
  end;
end;

[beanbear6]

Hallo zusammen,
vieelen vieelen Dank für Eure Hilfe, es klappt jetzt
Gruß Reiner

[markus5766h]

nur der Vollständigkeit halber :

http://www.delphipraxis.net/147151-c...erstellen.html

[DeddyH]

Siehe #12

[haentschman]

nur der Vollständigkeit halber...

Persönlich würde ich eine TObjectlist einem dynamischen Array vorziehen. Bei neueren Delphis die generischen Varianten... rein, raus...fertsch. ohne sich um die Array Grenzen kümmern zu müssen.

ja, ja #12 nicht vorher gelesen...

[TRomano]

@Haentschman & @DeddyH:

Einige wollen aber ihre CPU´s endlich mal auslasten und rauschen immer wieder per FOR-Schleife durch ihre ComponentList der Form ...
Sie lernen es erst dann, wenn irgendwann die GUI in die Kniee geht.

[himitsu]

Wer mit einer Schleife über die Components seine CPU in die Knie zwingt, der hat ganz andere Probleme.
> zu viele Komponenten auf der Form
> oder er sollte den 286er langsam upgraden

Wurde For-In schon erwähnt?
Nur der Vollständigkeit halber.