Beispiel Initialisierung:
Delphi-Quellcode:
unit Unit1;
interface
type
TRQRec =
record
isActiv: Boolean;
end;
implementation
procedure Test1;
var
RQRec: TRQRec;
begin
Fillchar(RQRec,Sizeof(RQRec),#0);
if RQRec.isActiv
then // es ist manchmal true
begin
// do amasing things
end;
end;
end.
Beispiel Record wird an eine Procedure übergeben und ich will testen ob es initialisiert wurde:
Delphi-Quellcode:
unit Unit1;
interface
type
TRQRec =
record
Data : integer;
isActiv:
String;
Constructor Create(aData : Integer);
end;
implementation
procedure Test1;
var
RQRec: TRQRec;
begin
if RQRec.isActiv = '
'
then
RQRec := TQRRec.Create(42);
end;
Constructor TRQRec.Create(aData : Integer);
begin
Data := aData;
isActiv := '
*';
end;
end.