Forum: Algorithmen, Datenstrukturen und Klassendesign
by totti14,
16. Nov 2015
Also wird hier nach der Pointer Adresse sortiert ?
Aber so mag Delphi das ja nicht.
if NativeInt(ACode) < NativeInt(UniqueSortedCodeList) then
So funzt es.
Forum: Algorithmen, Datenstrukturen und Klassendesign
by totti14,
16. Nov 2015
Hallo Sherlock,
Da meckert Delphi auch.
if ACode < UniqueSortedCodeList^ then // linkscanner.pas(862): E2008 Inkompatible Typen
Das ist ein Codestück aus Lazarus was ich zweckentfremden wollte.
Totti
Forum: Algorithmen, Datenstrukturen und Klassendesign
by totti14,
15. Nov 2015
Hallo,
ich verstehe folgenden Pointer Vergleich nicht:
procedure AddToUniqueList(ACode: Pointer; UniqueSortedCodeList: TList);
var l,m,r: integer;
begin
l:= 0;
r:= UniqueSortedCodeList.Count-1;
m:= 0;