Hallo,
jetzt war Klaus ein bischen schneller.
ich würde es auch so, nur etwas "sicherer" hinsichtlich eventueller Erweiterungen machen.
Delphi-Quellcode:
type
TZugangArray = 1..10;
TZugangsNummer = record
Nummer : array[TZugangArray] of integer;
end;
und dann funktioniert deine Schleife so:
Delphi-Quellcode:
procedure Erhoehen;
var
i: integer;
ZN: TZugangsNummer;
begin
for i := Low(TZugangArray) to High(TZugangArray)
do Inc(ZN.Nummer[i]);
end;
[edit] Wobei das in der Praxis wohl eher so Sinn machen würde
Delphi-Quellcode:
procedure Erhoehen(var ZN: TZugangsNummer);
var
i: integer;
begin
for i := Low(TZugangArray) to High(TZugangArray)
do Inc(ZN.Nummer[i]);
end;