Ein Schuss ins Blaue (aus Uralt-Source) :
Delphi-Quellcode:
Function Comp_Stru (
Var s1, s2; groesse : word ) : boolean;
Var
a1 :
Array [1..$FFFF]
Of Byte
Absolute s1;
a2 :
Array [1..$FFFF]
Of Byte
Absolute s2;
i : Integer;
c : integer;
Begin
c := 0;
For i := 1
To groesse
Do Begin
If a1[i]<a2[i]
Then Begin
c := -1;
End;
If a1 [i] > a2 [i]
Then Begin
c := 1;
End;
Comp_Stru := c <> 0;
End;
End;
Glaube fast nicht, dass das heute noch geht. Wenn man die reinen Daten allerdings aus den Objekten rausziehen könnte ?
