fehlerhaftes Unterprogramm zur Maximumberechnung?

[marabu]

Hallo Technikus,

in deinem Code sind einige Fehler verschiedener Natur. Dieser Code hier funktioniert. Viel Spaß beim Studium.

Delphi-Quellcode:

function TCalcForm.MaxValue(sg: TStringGrid; iCol: integer): double;
var
  i, iRow, iRowCount: integer;
  d: double;
begin
  with sg do begin
    iRowCount := RowCount - FixedRows;
    Result := 0;
    for i := 0 to Pred(iRowCount) do begin
      d := StrToFloat(Cells[iCol, FixedRows + i]);
      if d > Result then
        Result := d;
    end;
  end;
end;

procedure TCalcForm.MaxButtonClick(Sender: TObject);
begin
  ShowMessage(Format('Maximum ist %.0n', [MaxValue(Grid, 3)]));
end;

Grüße vom marabu