1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

Type Thash_name=record
       h_name:string;
       h_tiefe:byte;
     end;

var
hashmax:cardinal;
hashliste:array of Thash_name;

for x:=1 to length(hash_string) do
  hash_wert:=(hash_wert * ord(hash_string[x])) mod length(hashliste);
    //nur zur Sicherheit
    if (hash_wert)>length(hashliste) then begin
      hash_wert:=length(hashliste);
    end;

  if hashliste[hash_wert].h_name='' then begin
    //eintragen;
    hashliste[hash_wert].h_name:=hash_string;
    hashliste[hash_wert].h_tiefe:=h1_tiefe;                    

1:

hashliste[hash_wert].h_name:=hash_string;                    

1:

hashliste[hash_wert].h_tiefe:=h1_tiefe;