Array, gleiche Werte zählen / Logikproblem.

[angos]

Hi und Willkommen,

das von jfheins erklärte ist die eine Option. Die andere ist, du definiert dir deine eigenen Typen als zB Konstanten.

Delphi-Quellcode:

const
  CONST_Schulden = 1;
  CONST_Ausgaben = 2;
  usw...

zusätzlich haste die Variablen:

Delphi-Quellcode:

var
  CountSchulden: Integer;
  CountAusgaben: Integer;
  ....

nun kannst du in einer Schleife dein Array abarbeiten.

Delphi-Quellcode:

  for i := 0 to High(Meinarray) do
  begin
    case Meinarray[i] of
      CONST_SChulden: Inc(CountSchulden);
      CONST_Ausgaben: Inc(CountAusgaben);
      ...
    end;
  end;

Das nachher noch auf die Summe der Werte zu erweitern sollte nicht so schwer sein. Tip:

Delphi-Quellcode:

type
  meinrecord = record
    TypID: Integer;
    TypBezeichnung: String;
    Summe: Double;
  end;

var
  WerteArray = array of meinrecord;

Gruß
Ansgar