Hallo,
ich verstehe folgenden Pointer Vergleich nicht:
Delphi-Quellcode:
procedure AddToUniqueList(ACode: Pointer; UniqueSortedCodeList: TList);
var l,m,r: integer;
begin
l:= 0;
r:= UniqueSortedCodeList.Count-1;
m:= 0;
while r >= l do begin
m:= (l+r) shr 1;
if ACode < UniqueSortedCodeList[m] then // << [dcc32 Fehler] scanner.pas(862): E2015 Operator ist auf diesen Operandentyp nicht anwendbar
r:= m-1
else if ACode > UniqueSortedCodeList[m] then
l:= m+1
else
exit;
end;
if (m < UniqueSortedCodeList.Count) and (ACode > UniqueSortedCodeList[m]) then
inc(m);
UniqueSortedCodeList.Insert(m,ACode);
end;
ACode und das result von UniqueSortedCodeList[] sind doch beides Pointer ?
Mal abgesehen vom Sinn und Zweck des Vergleichs den ich auch nicht verstehe
Hat da jemand ne Idee zu ?
Danke
Totti