Einzelnen Beitrag anzeigen

Benutzerbild von Jasocul
Jasocul

Registriert seit: 22. Sep 2004
Ort: Delmenhorst
1.354 Beiträge
 
Delphi 11 Alexandria
 
#12

AW: Größter Wert aus StringGrid

  Alt 12. Feb 2018, 14:39
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.
Peter

Geändert von Jasocul (12. Feb 2018 um 14:49 Uhr)
  Mit Zitat antworten Zitat