1:
2:
3:
4:
5:
6:
7:
8:
9:

function Get_Daten(ID : Integer) : String;
begin
  for i:= (array) to (array) do begin
    if (array[i].id <> id) then continue;
     
    result := array[i].name;
    break;
  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:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:

procedure TForm1.FormCreate(Sender: TObject);
begin
  // Hash erstellen
  fHash := TIntegerHash.Create(1000);
end;


procedure TForm1.FormDestroy(Sender: TObject);
var
  Idx: Integer;
  Vals: TList;
begin
  Vals := TList.Create;
  try
    // Alle Pointer von den Werten abholen.
    fHash.GetValues(Vals);

    // Strings frei geben.
    for Idx := 0 to Vals.Count -1 do
      StrDispose(PChar(Vals[Idx]));
  finally
    FreeAndNil(Vals);
  end;

  // Hash frei geben.
  FreeAndNil(fHash);
end;


procedure TForm1.Button1Click(Sender: TObject);
var
  Text: String;
begin
  // Temporärer Text
  Inc(fCount);
  Text := 'Text' + IntToStr(fCount);

  // StrNew erstellt einen neuen Speicherbereich der den Text enthält.
  // PChar(Text) würde nicht gehen, da Text nur flüchtig ist und dann
  // ein ungültiger Pointer abgelegt werden würde.
  fHash.Add(fCount, StrNew(PChar(Text)));
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  Idx, Num: Integer;
  Names: TList;
begin
  Memo1.Lines.BeginUpdate;
  try
    Memo1.Lines.Clear;

    Names := TList.Create;
    try
      // Alle Namen aus dem Hash holen.
      fHash.GetNames(Names);

      for Idx := 0 to Names.Count -1 do begin
        Num := Integer(Names[Idx]);

        // Eigentlich ist nur diese Zeile für dich wichtig.
        // einzelnen Wert Abholen und in Memo packen.
        Memo1.Lines.Add(IntToStr(Num) + #9 + PChar(fHash.Get(Num)));
      end;
    finally
      FreeAndNil(Names);
    end;
  finally
    Memo1.Lines.EndUpdate;
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

  i : Integer;
  Ptr : Pointer;
begin
    // Hash erstellen
    result := TStringHash.Create(length(HilfArr));

    // Hash füllen
    for i := low(HilfArr) to high(HilfArr) do begin

      result.Add(HilfArr[i].Name, HilfArr[i].ID, Ptr)
    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:

  i : Integer;
begin
  // Hash erstellen
  // Damit es nicht ganz so groß wird. Aber es wäre eh besser, wenn das Hash direkt befüllt würde.
  result := TStringHash.Create(length(HilfArr) div 3);
  try

    // Hash füllen
    for i := low(HilfArr) to high(HilfArr) do 
      result.Add(HilfArr[i].Name, Pointer(HilfArr[i].ID))

// Zum Auslesen.
//    Integer(Hashklasse.Get('Blahh'));

// Du solltest im übrigen die ID 0 nicht benutzen. Da es sonst zu Problemen kommt,
// da ein nil pointer gar nicht erst im Hash abgelegt werden. Pointer(0) wäre nil.
// Außerdem liefert Get nil zurück sobald der Name nicht existiert. Und damit wären alle nicht
// gefunden Namen automatisch ID 0.
  except
    // Es ist ein Fehler aufgetreten
    on e:exception do begin
      // Hash freigeben
      FreeAndNil(Result);

      // Fehler neu auslösen
      raise e;
    end;
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

    // Hash erstellen
    result := TStringHash.Create(length(HilfArr));

    // Hash füllen
    for i := low(HilfArr) to high(HilfArr) do begin
      GetMem(Ptr, sizeof(TIdRec));
      Ptr^.ID := HilfArr[i].ID;

      result.Add(HilfArr[i].Name, Ptr);
    end;