Zugriff auf Variablen im Record wie FindComponent

[barf00s]

Delphi-Quellcode:

type
  PRecord = ^TRecord;
  TRecord = record
    Name: shortstring;
    Plz: cardinal;
  end;

var
  xListe: TList; // oder von mir aus auchn olles array (TList is auch nurn array-wrapper fallsdes noch nich wusstest)

procedure AddRecord(xRecord: TRecord);
begin
  xListe.Add(@xRecord);
end;

function SucheRecord(const Name: string): TRecord;
var
  iIndex: integer;

begin
  for iIndex := 0 to xListe.Count - 1 do
    if PRecord(xListe[iIndex])^.Name = Name then begin
      Result := PRecord(xListe[iIndex])^;
      Exit;
    end;
end;