Hi Neo !
ich bekomms nicht hin
Da muss noch irgendwas falsch dran sein, wenn ich nämlich in einer im Quelltext darüberliegenden PRocedure noch eine Zeile einfüge, dann ändert sich die (in der Tat recht einfache) Checksumme ..
normalerweise dürfte doch der Compiler nicht unterschiedlichen Code in Abhängigkeit von einer PRocedure obendrüber machen, oder ??
Ist hier was falsch (ausser der fehlenden Abbruchbedingung)
Code:
function checkSum : integer;
type
PBuffer = ^TBuffer;
TBuffer = array[0..0] of byte;
var
p : PBuffer;
i : integer;
sum : Integer;
begin
p := Pointer( @Txtradeclass.Info1Click);
sum := 0;
i := 0;
while Byte(p^) <> $C3 do
begin
inc(sum, Byte(p^));
inc(p);
inc(i);
end;
showmessage(inttostr(sum));
end; // von checksum