когда первый раз выбираешь Max, то не выводится Min и наоборот Делфи

[carrie bradshaw]

проблемка в проге.

var
  Form97: TForm97;
  I, J : integer;
implementation

{$R *.dfm}

procedure TForm97.Button1Click(Sender: TObject);
var I,J: integer;
begin
Randomize;
For I:= 0 to StringGrid1.ColCount-1  do
 For J:= 0 to StringGrid1.RowCount-1 do
  begin
   StringGrid1.Cells[I,J]:=Inttostr(Random(17));
   end;
end;
procedure TForm97.Button2Click(Sender: TObject);

var
Min, Max, Sum : Integer; {локальные переменные – результаты обработки массива}
begin
if Checkbox1.Checked then {определение Min-элемента}
with StringGrid1 do begin
Min:=StrToInt(Cells[I,J]); {пусть - это Min-элемент}
for I := 1 to ColCount - 1 do
for J:= 1 to RowCount - 1 do
if StrToInt(Cells[I,J])<Min then
Min:=StrToInt(Cells[I,J]);
Edit1.Text:=IntToStr(Min);
end
else Edit1.Text:=' ';
if Checkbox2.Checked then {определение Мах-элемента}
with StringGrid1 do begin
Max:=StrToInt(Cells[I,J]); {пусть - это Мах-элемент}
for I := 1 to ColCount - 1 do
for J:= 1 to RowCount - 1 do
if StrToInt(Cells[I,J])>Max then
Max:=StrToInt(Cells[I,J]);
Edit2.Text:=IntToStr(Max);
end
else Edit2.Text:=' ';
if Checkbox3.Checked then {вычисление Sum}
with StringGrid1 do
begin
Sum:=0; {обнулить значение суммы перед подсчетом}
for i := 1 to ColCount - 1 do
Sum:=Sum+StrToInt(Cells[I,I]);
Edit3.Text:=IntToStr(Sum);
end
else
Edit3.Text:='';
end;
end.

выводятся случайные числа в таблицу, сумма чисел выше главной диагонали, а максимальный и минимальный элемент выводится через раз (то есть когда выбираешь первый раз максимальный, то уже не выводится минимальный элемент и наоборот).

Delphi

[BDA]

А если написать "Min := StrToInt(Cells[1, 1]); { пусть - это Min-элемент }"?

[carrie bradshaw]

BDA, нет, так не получается

[BDA]

А так?

procedure TForm1.Button2Click(Sender: TObject);
var
  Min, Max, Sum, I, J: integer;
begin
  Edit1.Text := '';
  Edit2.Text := '';
  Edit3.Text := '';
  with StringGrid1 do
  begin
    if CheckBox1.Checked then
    begin
      Min := StrToInt(Cells[0, 0]);
      for I := 0 to ColCount - 1 do
        for J := 0 to RowCount - 1 do
          if StrToInt(Cells[I, J]) < Min then
            Min := StrToInt(Cells[I, J]);
      Edit1.Text := Inttostr(Min);
    end;
    if CheckBox2.Checked then
    begin
      Max := StrToInt(Cells[0, 0]);
      for I := 0 to ColCount - 1 do
        for J := 0 to RowCount - 1 do
          if StrToInt(Cells[I, J]) > Max then
            Max := StrToInt(Cells[I, J]);
      Edit2.Text := Inttostr(Max);
    end;
    if CheckBox3.Checked then
    begin
      Sum := 0;
      for J := 0 to RowCount - 1 do
        for I := J + 1 to ColCount - 1 do
          Sum := Sum + StrToInt(Cells[I, J]);
      Edit3.Text := Inttostr(Sum);
    end;
  end;
end;

Кстати, код подсчета суммы тут другой.