1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:

  
type
  TInetData = record
    ID, Port: Integer;
    Host, User : String;
  end;

  TInetArray = array of TInetData;

// Aufruf:
DeleteMultipleEntrys(TInetArray);

procedure DeleteMultipleEntrys(var AArray: TInetData);
var
  i, CurLength: Integer;
begin
  i := Succ(Low(AArray));
  if Length(AArray) > 0 then
    CurLength := 1
  else
    CurLength := 0;
  while i <= High(AArray) do
  begin
    if AArray[Pred(i)] <> AArray[i] then  // Fehler mit meinem "custom" Array!
    begin
      AArray[CurLength] := AArray[i];
      Inc(CurLength);
    end;
    Inc(i);
  end;
  SetLength(AArray, CurLength);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:

type
  TInetData = record
    ID, Port: Integer;
    Host, User : String;
  end;

  TInetArray = array of TInetData;

function CheckEqualInetData(const a,b: TInetData): boolean;
begin
  result := false;
  // Anordnung der Abfragen so, dass die Ungleichheit möglichst frueh erkannt wird
  IF a.ID <>b.ID then
    EXIT;  
  IF a.Port <>b.Port then
    EXIT;  
  IF a.Host <>b.Host then
    EXIT;  
  IF a.User <>b.User then
    EXIT;  
  result := true;
end;

function CheckPosInList(const aArr:TInetArray,const aItem: TInetData):integer;
begin
 //Von oben nach unten suchen ist wahrscheinlich wahrscheinlicher ;-)
  For result := High(aArr) downto 0 do
    // Bei Gleichheit einfach beenden
    IF CheckEqualInetData(aArr[result],aItem) then
      EXIT;  
//Nichts gefunden
  result := -1;
end;

procedure InsertNewItem(var aArr:TInetArray;const aItem : TInetData);
var
  i : integer;
begin
  IF CheckPosInList(aArr,aItem) < 0 then
  begin
    i := length(aArr);
    setlength(aArr,i+1);
    aArr[i]:= aItem;
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:

 Anzahl Elemente           2178309
 Groesze des Hash          2178309
 Belegung                   100,00%
 Speicherbelegung Item          16
 Speicherbelegung Hash          20
 Speicherbelegung String       144
 Gesamtspeicher Hash      ~  41,548 Mb
 Gesamtspeicher Daten     ~ 332,384 Mb
 Hash /  Daten               12,500%

 Versuchte Elemente            272288
 Eingefügte Elemente           256010
 Anzahl mehrere  Elemente       14205
 Anzahl doppelte Elemente       16278
 Anzahl Vollvergleiche          16278
 00.00.00.388
 relative Belegung              11,75%
 relative Anzahl Kollisionen     5,55%
 Maximale Kollisionslaenge          3
 Mittlere Kollisionslaenge       0,05

 Versuchte Elemente            544576
 Eingefügte Elemente           481930
 Anzahl mehrere  Elemente       49095
 Anzahl doppelte Elemente       62646
 Anzahl Vollvergleiche          62646
 00.00.00.377
 relative Belegung              22,12%
 relative Anzahl Kollisionen    10,19%
 Maximale Kollisionslaenge          4
 Mittlere Kollisionslaenge       0,10

 Versuchte Elemente           1089152
 Eingefügte Elemente           857583
 Anzahl mehrere  Elemente      147771
 Anzahl doppelte Elemente      231569
 Anzahl Vollvergleiche         231569
 00.00.00.737
 relative Belegung              39,37%
 relative Anzahl Kollisionen    17,23%
 Maximale Kollisionslaenge          6
 Mittlere Kollisionslaenge       0,15

 Versuchte Elemente           2178304
 Eingefügte Elemente          1377286
 Anzahl mehrere  Elemente      355296
 Anzahl doppelte Elemente      801018
 Anzahl Vollvergleiche         801018
 00.00.01.413
 relative Belegung              63,23%
 relative Anzahl Kollisionen    25,80%
 Maximale Kollisionslaenge          8
 Mittlere Kollisionslaenge       0,20