Initialisierung eines Record-Feldes

[Progman]

wie wäre es denn mit:

Delphi-Quellcode:

TBlub = record
private
  FArray : PGenericArray; // Entweder das hier
  FBoolean : Boolean; // ... oder das hier
public
  procedure Init;
end;

procedure TBlub.Init;
begin
  //alle Defaultwerte setzen
end;

var Blub: TBlub;

//an passender Stelle einfach
Blub.Init;

Bei D2007 geht das so.

[rollstuhlfahrer]

oder gar eine Klassen-Funktion, die das initialisierte Record als Ergebnis zurückgibt.

Bernhard

[s.h.a.r.k]

Genau das will ich vermeiden, da der User dann sehr sehr oft diese Init Methode aufrufen musst. Ich brauche definitiv eine Methode die selbst ausgeführt wird oder eben eine Variable die initialisiert wird.

[himitsu]

Wie gesagt, es gib leider keine automatische Initialisierung, aber man kann sich sowas basteln.

Alle Felder auf Property umleiten und mit einer Prüfmethode versehen, ebenso alle Methoden.

Delphi-Quellcode:

type
  TMyRecord = record
  pivate
    FInitCheck: array of Byte;
    FInt: Integer;
    FBool: Boolean;
    ...
    procedure InitCheck;
  public
    property Int: Integer read GetInt write SetInt;
    property FBool: Boolean read GetBool write SetBool;
    procedure Machwas;
  end;

procedure TMyRecord.InitCheck;
begin
  if FInitCheck = nil then
  begin
    // Felder initialisieren
    ...
    SetLength(FInitCheck, 1);
  end;
end;

Und dann jeweils am Anfang aller Methoden InitCheck aufrufen.
FInitCheck wird von Windows immer als NIL initialisiert und wenn es mal kein NIL ist, dann wurde InitCheck aufgerufen.

Das umkopieren und freigeben des Records kann man so aber nicht mitbekommen.
Dafür könnte zumindestens das Freigeben, man über ein Interface bewerkstelligen, welches man statt dem Array nimmt und welchem die freizugebenden Daten (schon beim Erstellnen und bei allen wichtigen Änderungen) bekanntgemacht wurden, da das Interface keinen Zugriff auf den Record hat.
Oder man macht eben gleich alle Daten in das Interface rein und baut in den Record nurn noch Weiterleitungen ein.