Padding Bytes herausfinden

[Der schöne Günther]

Super, TRttiField.Offset war mich nicht bewusst.

Jetzt muss ich mich entscheiden. Beides sieht gut aus. Hm...

[Blup]

Meine Records haben häufig eine Clear-Methode, um den Speicher zu Nullen.

Delphi-Quellcode:

type
  TMyRecord = record
    Value1: Byte;
    Value2: string;
    procedure Clear;
  end;

implementation

procedure TMyRecord.Clear;
begin
  Finalize(Self);
  FillChar(Self, SizeOf(Self), #0);
end;

Finalize wird nur benötigt, wenn String, dynamische Array oder Interface-Member vorhanden sind.
Andernfalls meldet der Compiler das.