Pointer TList

[totti14]

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 :roll:

Hat da jemand ne Idee zu ?

Danke

Totti

[Sherlock]

Am Ende sind alles Pointer, und dann aber auch doch wieder nicht. Wenn Du etwas als Pointer nutzen möchtest, ohne den Komfort der Typsicherheit, dann musst Du das auch explizit tun. Dazu gibt es die Operatoren ^ und @. In Deinem Fall dürfte also

Delphi-Quellcode:

if ACode < UniqueSortedCodeList[m]^ then

zielführend sein.

Ich weiss, wir reden nicht über Sinn und Unsinn. Aber auch Delphi ist modern genug, um auf die Verwendung von Pointern verzichten zu können.

Sherlock

[totti14]

Hallo Sherlock,
Da meckert Delphi auch.

Delphi-Quellcode:

if ACode < UniqueSortedCodeList[m]^ then  // [dcc32 Fehler] linkscanner.pas(862): E2008 Inkompatible Typen

Das ist ein Codestück aus Lazarus was ich zweckentfremden wollte.

Totti

[Dejan Vu]

Der Code fügt eine Adresse per binary search in eine Liste ein. Die Liste ist hinterher anhand der Ordnung (Pointer, <,>,=) sortiert. Es kommt auf die Implementierung der Vergleichsoperatoren an. Eine Dereferenzierung kann nicht stattfinden, da die Pointer ja untypisiert sind.

[totti14]

Also wird hier nach der Pointer Adresse sortiert ?
Aber so mag Delphi das ja nicht.

Delphi-Quellcode:

if NativeInt(ACode) < NativeInt(UniqueSortedCodeList[m]) then

So funzt es.

[SMO]

Falls das wirklich Pointer sind, dann nimm bitte NativeUInt, oder das äquivalente und etwas kürzere UIntPtr.
Denn Speicheradressen sind vorzeichenlos (unsigned)!

[totti14]

Da hast du Recht.:thumb: