Einzelnen Beitrag anzeigen

Benutzerbild von Gollum
Gollum

Registriert seit: 14. Jan 2003
Ort: Boxberg
456 Beiträge
 
Delphi 10.1 Berlin Professional
 
#4

AW: Größter Wert aus StringGrid

  Alt 8. Feb 2018, 17:10
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
  Mit Zitat antworten Zitat