Zitat von
DGL-luke:
Findcomponent würd ich da nicht hernehmen! ich würd die in einen array stecken:
Delphi-Quellcode:
var Labels: array[0..xxx] of TLabel;
procedure Labelset;
begin
Labels[0] := LabelA;
Labels[1] := LabelB;
...
...
end;
procedure Labelwrite;
var i: Integer;
begin
for i := 0 to high(Labels) do
Labels[i].Caption := cpations[i];
end;
Und wie kommst du dann wieder zurück auf LabelA, etc?
Aber, wie wäre es, die Labels einfach zur Laufzeit zu erzeugen?
mfg
Helmi
>> Theorie ist Wissen, dass nicht funktioniert - Praxis ist, wenn alles funktioniert und keiner weiss warum! <<