Nachdem du jetzt den Such-Key als eigenen Record zur Verfügung stellst, kann man die Suche-Function etwas einfach gestalten, aber das bringt nur ein paar Prozent:
Code: Alles auswählen
function Suche(const AKey: keyty): Ps_rec;
var
//  item: s_rec;
  node: TAVLTreeNode;
begin
  //item.Key:= AKey;
//  node := myArray.Find(@item);
  node := myArray.Find(@AKey);
  if node = nil then
    Result := nil else
    Result := Ps_rec(node.Data);
end;  ) ausgetauscht. Auch die Records habe ich gegen Klassen getauscht...
 ) ausgetauscht. Auch die Records habe ich gegen Klassen getauscht...   
   Verein
Verein 
 Links
Links Suche
Suche