Durchlaufen eines Records

[Muetze1]

Willste wissen ob der gesamte Record Speicherplatz mit 0xff gefüllt ist?

Delphi-Quellcode:

function IsInvalid(ARecord: TSitzung): boolean;
var
  lPtr: PByte;
  lEnd: Pointer;
begin
  result := true;

  lPtr := @ARecord;
  lEnd := lPtr;
  Inc(lEnd, SizeOf(TSitzung));

  while ( lEnd < lPtr ) do
  begin
    if lPtr^ <> $ff then
    begin
      result := false;
      break;
    end;
    Inc(lPtr); 
  end;
end;

Aber grundsätzlich hast du ein Designproblem, wenn du bei einem Record so etwas abfragen müsstest. Ich lege dir auch shmia Vorschlag an's Herz.