ich bin mal wieder dazu verdammt, in fremden Code Fehler auszumerzen (Absturz wegen Speicherfehler) und finde an mehreren Ecken sowas hier:
Code: Alles auswählen
function FindMaxMin(Data_List: TStringList): TStringList;
var
i: integer;
Max, Min, Current_Value: double;
begin
for i:=0 to Data_List.Count -1 do
begin
Current_Value := StrToFloat(Data_List[i]);
[...]
Data_List.Insert(0, FloatToStr(Min));
Data_List.Insert(0, FloatToStr(Max));
Result := Data_List;
end;
Mit dem Anhängen vom Min und Max an den Anfang kann ich ja noch leben (muss man nur wieder beheben). Aber eine Liste, die als Parameter in eine Funktion hinein geht als Rückgabewert ... ? Kann das gut gehen?
Ich hätte gedacht, dass man in diesem Fall besser eine Procedure nimmt und Data_List als var deklariert, so dass diese direkt manupuliert werden kann.
Oder übersehe ich hier was?
Ciao,
Photor