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;