Vergleich von Suchverfahren mit Beispielen

[idealist]

Zitat von webcss:

SkipList rocks again!

Da bin ich eigentlich nicht so sicher.

Delphi-Quellcode:

function TcsStringSkipList.Find(aKey: String; var aInfo: Pointer): Boolean;
var
  k : Integer;
  p,q : PStrNode;

begin
// q := GetStrNode (aKey, fUpdate);
  p := fHeader;
  for k:= flevel downto 1 do begin
    q := p^.ndFwd[k];
    while q^.ndkey < aKey do begin
      p := q;
      q := p^.ndFwd[k];
      end;
    end;
  Result := (q^.ndKey = aKey);
  If Result Then aInfo := q^.ndInfo;
end;

hier soll man auch Ansi konform vergleichen