[Records] Codeoptimierung bei Übergabetypen

[oki]

hi,

ich hab mal einen Ansatz für so ein Object zusammen geschrieben.

Delphi-Quellcode:

type TMonatArr = Array [0..16] of double;

type
  TDaten = class(TObject)
  private
    FGroupid: integer;
    FGTyp: integer;
    FGrid: integer;
    FPid: integer;
    FGS3: String;
    FGColor: String;
    FGS2: String;
    FGOP1: String;
    FGOP2: String;
    FGS1: String;
    FGBez: String;
    FMonat: TMonatArr;
  protected
  public
    property Gid: integer read FGrid write FGrid;
    property Pid: integer read FPid write FPid;
    property Groupid: integer read FGroupid write FGroupid;
    property GBez: String read FGBez write FGBez;
    property GTyp: integer read FGTyp write FGTyp;
    property GColor: String read FGColor write FGColor;
    property GS1: String read FGS1 write FGS1;
    property GOP1: String read FGOP1 write FGOP1;
    property GS2: String read FGS2 write FGS2;
    property GOP2: String read FGOP2 write FGOP2;
    property GS3: String read FGS3 write FGS3;
    property Monat: TMonatArr read FMonat write FMonat;
end;

hier können jetzt alle Methoden eingearbeitet werden, die Aktionen für die zu haltenden Daten durchführen, ohne dass mann dafür von "Außen" sorgen muß.

Wie gesagt, nur um Daten zu halten ist mir der Aufwand zu groß. Geht es dann aber ein Stück weiter, machts dann mit classen wieder Spaß.

Gruß oki