type
udtProjekt = record
snKosten : array[1..6] of Single;
nAnzahl : array[1..6] of Integer;
end;
var
aProjKosten : udtProjekt;
iSchleife : Integer = 0;
begin
//aProjKosten mit 0 vorbelegen
for iSchleife := Low(aProjKosten.snKosten) to High(aProjKosten.snKosten) do
begin
aProjKosten.snKosten[iSchleife] := 0.0;
aProjKosten.nAnzahl[iSchleife] := 0;
end;
type
TudtProjekt = record
snKosten : array[0..5] of Single;
nAnzahl : array[0..5] of Integer;
end;
.........
var
aProjKosten: TudtProjekt =(snKosten:(0,0,0,0,0,0);nAnzahl:(0,0,0,0,0,0));