moin
das einfachste wäre doch wenn du
an als array definierst!
var an: array[1..11] of longint;
der aufruf wäre dann folgender maßen:
Delphi-Quellcode:
for x := 1 to 11 do
an[x] := r;
Form1.Label6.Caption:=inttostr(an1+ an2+ an3);
dieser Aufruf könnte dann folgender maßen aussehen:
Delphi-Quellcode:
for x := 1 to 3 do
z := z + an[x];
Form1.Label6.Caption:=inttostr(z);