Array mit Zahlen füllen

[Tazidus]

Hallo,
danke für diesen Tipp.

Im Prinzip geht das schon, aber ich habe das Problem, dass ich eine Drei-Fall-Unterscheidung machen muß und hierbei ist lediglich die Gewichtung eine andere. Und ich wollte gerne eine Variable benutzen, die ich jeweils dann anpasse.

also sowas in der Art:

Delphi-Quellcode:

...
var
  Gewichtung : Array[1..9] of Integer;
Begin
  ...  
  case xyz of
  1: Begin
       Gewichtung := ...
       ...
     end;
  2: Begin
       Gewichtung := ...
       ...
     end;
  3: Begin
       Gewichtung := ...
       ...
     end;
  end;
...

end;