Einzelnen Beitrag anzeigen

angos

Registriert seit: 26. Mai 2004
Ort: Rheine
549 Beiträge
 
Delphi 11 Alexandria
 
#4

Re: Array, gleiche Werte zählen / Logikproblem.

  Alt 4. Jun 2009, 13:41
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
Ansgar
  Mit Zitat antworten Zitat