Skiplist @ alzaimer

[stoxx]

Hallo Alzaimer,

irgendwas verzeigert sich da in dem Code noch, wenn ich zwei dreimal folgenden Code aufrufe kommt eine heftige Exception die nicht definierbar.


http://www.delphipraxis.net/internal...light=skiplist

Delphi-Quellcode:

procedure TfrmZZEncoder.Button1Click(Sender: TObject);
var sl : TcsSkipList;
    pi: Pinteger;
    p : Pointer;
  i : Cardinal;
begin

 sl := TcsSkiplist.Create(16);

 new(pi);
 pi^:= 1;
 sl.Insert(5, pi);

 new(pi);
 pi^ := 1;
 sl.Insert(2, pi);

  new(pi);
 pi^ := 1;
 sl.insert(10, pi);


 new(pi);
 pi^ := 1;
 sl.insert(7,pi);

  new(pi);
 pi^ := 1;
 sl.insert(1,pi);



//
// for i  := 0 to 10 do begin
//  if sl.Find(i, p)
//     then begin
//      pi := p;
//      pi^ := pi^ + 1;
//
//     end;
// end;


// sl.First;
// while not sl.EndOfList do begin
//
//   sl.CurrentData(i, p);
//
//   showmessage(inttostr(i) + '  ' + inttostr(PInteger(p)^));
//   sl.Next;
// end;


sl.free;
end;