Thats Insane - wrong memory setting by recursion???

[marabu]

Hi Silvia,

you might want to try out this:

Delphi-Quellcode:

uses
  Math;

function TBinTree.FindMin: Integer;
var
  minLeft, minRight: Integer;
begin
  if Assigned(left) 
    then minLeft := left.FindMin
    else minLeft := value;
  if Assigned(right) 
    then minRight := right.FindMin
    else minRight := value;
  Result := MinIntValue(value, minLeft, minRight);
end;

Kind regards

marabu