Skrive til komponentnavne....

Brug

... men det er noget værre fusk.

Hvis du havde en TStringList kunne det gøres mere elegant - ikke meget, men mindre risikobetonet. I mine øjne er det næsten en dødssynd at basere programmeringen på at en komponent ikke skifter navn. Bevares, der er værre synder: Eksempelvis at sende X-faktor og deslige på alle TV-kanaler en fredag.


For at sætte en label:

Ja...Det er ikke lige det smukkeste programmering....

Lige pt. er det en nødløsning på en rapport der senere skal placeres i en DB.

Det virker super, med lidt omskrivning - tusinde tak :-D

For i := 1 to 20 do
  begin
    Component := FindComponent('lblRapArt'+IntToStr(i));
    if assigned(Component) and (Component is TppLabel) then
      TppLabel(Component).Caption := aweeklines[i].Art;
  end;