hi

hat jemand eine idee wie ich von einem record
z.b.

markieren

Delphi-Quellcode:

  TMyHeader = packed record
    fKey : string[50];
    fTime : double;
    fTyp : integer;
  end;

eine prüfsumme erstellen kann. Vielleicht mit XOR.
Kann mir da einer vielleicht helfen.....

Wenn du keine allzu hohen Anspruche stellst, könnte das so gehen:

markieren

Delphi-Quellcode:

var
p: Pointer; // oder Pointer auf Byte
i: Integer;
begin
  p := @MyHeader;
  for i := 0 to 72 do
  begin
    i := i xor p;
    p:= p + 1;
  end;

So ungefähr - nicht getestet, dirkert im Browser geschrieben

Eher so:

zusammenfalten · markieren

Delphi-Quellcode:

var
p: PByte;
i: Integer;
CheckSum: Byte;
begin
  p := @MyHeader;
  CheckSum := 0;
  for i := 1 to SizeOf(MyHeader) do
  begin
    CheckSum := CheckSum xor p^;
    Inc(p);
  end;

i kann man innerhalb der Schleife keinen Wert zuweisen

Zitat von Apollonius:

Eher so:
    i := i xor p^;

ist bestimmt nicht richtig

Zitat von Apollonius:

  i := 0;

kannst du dir sparen.

Was haben wir denn da gebaut? Ich sollte wirklich nicht ganz so gedankenlos abschreiben.

thx