Max und Mean Value Bestimmung

[leddl]

Nur um meinen Kopf zu retten, möchte ich kurz meinen Code verbessern. Hatte nämlich bei ner Änderung ne Kleinigkeit übersehen man sollte nicht wirklich eine undeklarierte Variable verwenden, wenn man eigentlich Result benutzen wollte

Delphi-Quellcode:

function GetMaxDiff(aData : Array of Integer;MeanValue : Integer) : Integer;
Var i : Integer;
begin
  Result := 0; 
  for i := low(aData) to high(aData) do 
    if abs(MeanValue-aData[i]) > Result then 
      Result := abs(MeanValue-aData[i]); 
end;

So, jetzt passts

//Edit: Korrigiert