Aber irgendwie krieg ich trotzdem immer eine
Exception, das aus einem Bereich nicht gelesen werden kann...... hier mein Code ...
Der Fehler tritt bei dem CompareMem Befehl auf...
Delphi-Quellcode:
Var
I, J, K, Laenge: Integer;
Reihe: Array[1..2] Of PByteArray;
Ungleich: Array[1..4] Of Boolean;
[...]
Begin
[...]
For K := 1 To 4 Do
Begin
For J := 0 To AktBmp[K].Height - 1 Do
Begin
Reihe[1] := AktBmp[K].ScanLine[J];
Reihe[2] := AltBmp[K].ScanLine[J];
Laenge := High(Reihe[2]^);
If CompareMem(Reihe[1], Reihe[2], Laenge) = False Then
Ungleich[K] := True;
If Ungleich[K] = True Then Break;
End;
End
[...]
End;
Lanege hat fast immer den Wert von 32767... was ja eigentlich total ok ist...
*Ricane-der-alte-Thread-Ausgräber*