Größter Wert aus StringGrid

[Gollum]

Hallo peetfree,

evtl. so:

Delphi-Quellcode:

function GetMaxFromStringGrid():Integer;
var aRow, aCol, max:Integer;
begin
  max:=0;
  for aRow:=0 to StringGrid1.RowCount-1 do
    if (StringGrid1.RowHeights[aRow]<>-1) then
  begin  
    for aCol:=0 to StringGrid1.ColCount-1 do
      if (StringGrid1.Cells[aCol, aRow].ToInteger > max) then
        max:=StringGrid1.Cells[aCol, aRow].ToInteger;
    // oder 
    //if (StrToInt(StringGrid1.Cells[aCol, aRow]) > max) then 
    // max:=StrToInt(StringGrid1.Cells[aCol, aRow]);
  end;
  Result:=max;
end;

Alle Angaben ohne Gewähr