Einem Array of double einen Wert 0 zuweisen

[DeddyH]

. Naja, die Idee mit dem Array war ja schon ganz richtig (immerhin etwas).

Delphi-Quellcode:

var
  Gesamtzahlen: array[1..49] of double;
begin
  FillChar(Gesamtzahlen, SizeOf(Gesamtzahlen), 0);

Oder in einer Schleife einzeln zuweisen:

Delphi-Quellcode:

var
  Gesamtzahlen: array[1..49] of double;
  i: integer;
begin
  for i := Low(Gesamtzahlen) to High(Gesamtzahlen) do
    Gesamtzahlen[i] := 0;

Und dann statt auf 49 Einzelvariablen auf den entsprechenden Array-Index zugreifen.
Form9.Edit1.text := Format('%f €', [Gesamtzahlen[1]]);