Größter Wert aus StringGrid

[peetfree]

Delphi-Quellcode:

If (Form3.Checkbox2.Checked=True) Then Form8.StringGrid1.Cells[1,4]:= '3';
If (Form3.Checkbox2.Checked=True) Then Form8.StringGrid1.Cells[2,4]:= '2';


 // Beginn Eintragen neuer Versuch

function GetMaxFromStringGrid():Integer;
var aRow,  max:Integer ;
begin
  max:=0;
  for aRow:=0 to 6 do
    if (Form8.StringGrid1.RowHeights[aRow]>-1) then
  begin
      if (StrToFloat(Form8.StringGrid1.Cells[1, aRow]) > max) then
     max:=StrToFloat(Form8.StringGrid1.Cells[1, aRow]);
     end;

     Form8.Edit6.Text:= FloatToStr(max);
end;




//Füllen von stringgrid 1 am anfang

 If (Form8.RadioButton1.Checked= True) Then Form8.StringGrid2.Hide;

Befindet sich alles innerhalb einer button click procedure, da passieren recht viele Dinge.

Fehler 2. & 3. : Ups

Dafür kam noch dazu: Incompatible types "byte" and "extended" (analog dazu auch mit integer)