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)