Einzelnen Beitrag anzeigen

peetfree

Registriert seit: 31. Jan 2018
6 Beiträge
 
#11

AW: Größter Wert aus StringGrid

  Alt 12. Feb 2018, 12:28
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)
  Mit Zitat antworten Zitat