Delphi-Quellcode:
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 (StrToInt(Form8.StringGrid1.Cells[1, aRow]) > max) then
max:=StrToInt(Form8.StringGrid1.Cells[1, aRow]);
end;
Form8.Edit6.Text:= IntToStr(max);
Result := max;
end;
procedure abcdef; // Du musst nachsehen, wie deine procedure heißt
var
MaxWert : Integer;
begin
...
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
MaxWert := GetMaxFromStringGrid;
//Füllen von stringgrid 1 am anfang
If (Form8.RadioButton1.Checked= True) Then Form8.StringGrid2.Hide;
...
end;
Das jetzt mal ohne große Erläuterungen, da ich wirklich nicht weiß, wo ich anfangen soll.
Ich denke, du solltest dich mit den Grundlagen der Delphi-Programmierung auseinandersetzen, ansonsten wirst du weiteren Aufgaben erheblich mehr Probleme bekommen.
Tutorials gibt es reichlich im Internet.