Records

[Edelfix]

Hallo,

letzte Zeit bemerke ich immer öfter das Records nicht korrekt initialisiert sind.
In unserem gigantischem Projekt sind Records eigentlich nie initialisiert. Deswegen kommt es immer wieder vor das unsere Kunden ein Fehler melden der bei uns aber nicht auftritt. Oder ein Fehler nur auf einem von zehn identischen Arbeitsplätzen auftritt. Ich habe das Gefühl das es häufiger geworden ist seit wir auf 64 Bit umgestellt haben.
Aktuell suche ich stunden lang nach genau dieser Stelle und initialisiere diesen einen Record.

Wie macht ihr das? Gibt es da eine Lösung die mir nicht bekannt ist?

Beispiel:

Delphi-Quellcode:

unit Unit1;

interface

type
  TRQRec = record
    isActiv: Boolean;
  end;

implementation

procedure Test1;
var
  RQRec: TRQRec;
begin
  //RQRec := Default(TRQRec); // zur Sicherheit initialisieren
  if RQRec.isActiv then // es ist manchmal true
  begin
    // do amasing things
  end;
end;

end.