Поиск минимального и максимального элемента в двухмерном массиве.

[Dem6]

Поиск минимального и максимального єлемента в двухмерном массиве. Найдиные элементы выделить цветом.

nit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TGridDrawState);
    procedure FormShow(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
 i, j: integer;
begin
  with StringGrid1 do
   for j := 1 to ColCount - 1 do
      for i := 1 to RowCount - 1 do
         Cells[j, i] := IntToStr(Random(100));
end;

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
  var t,min:integer;
    i,j: integer;
begin
min:=StrToInt(StringGrid1.Cells[1,1]);
for i:=1 to StringGrid1.ColCount-1 do
for j:=1 to StringGrid1.ColCount-1 do
  begin
    t:=StrToInt(StringGrid1.Cells[i,j]);
    if t < min then
      min:=t;
      Canvas.Brush.Color := clRed; // ïåíçåëü ÷åðâîíèé
      Canvas.FillRect(Rect);       // çàìàëüîâêà ïðÿìîêóòíèêà
      Canvas.Font.Color := clYellow; // ïåðî æîâòå
    Canvas.TextOut(Rect.Left + 2, Rect.Top + 2, StringGrid1.Cells[ACol, ARow]); // âèâ³ä òåêñòó
 end;
end;

procedure TForm1.FormShow(Sender: TObject);
var i:integer;
begin
for i:=1 to 4 do begin
StringGrid1.Cells[i,0]:=inttostr(i);
end;
for i:=1 to 4 do begin
StringGrid1.Cells[0,i]:=inttostr(i);
end;
end;

end.

Для начале я решил сделать для минимального элемента.
Проект запускается и виснет, вот что выскакивает

[maxflint]

на какой строчке ошибка

[mihali4]

Идем по шагам и натыкаемся либо тут

min:=StrToInt(StringGrid1.Cells[1,1]);

либо тут

 t:=StrToInt(StringGrid1.Cells[i,j]);

на пустую ячейку или ячейку, содержащую букливицы.

А еще вот эта конструкция вызывает, мягко говоря, недоумение:

for i:=1 to StringGrid1.ColCount-1 do
for j:=1 to StringGrid1.ColCount-1 do

[Dem6]

А как можно обойти эти скользкие места? А делаю с такой самой логикой как на паскале

[mihali4]

TryStrToInt function
Ну, а для "конструкции"

for i:=1 to StringGrid1.ColCount-1 do
for j:=1 to StringGrid1.RowCount-1 do

И еще. Когда копируете код из Дельфи, переключайтесь в Дельфи на русский язык - тогда комменты будут выглядеть нормально, а не "крякозябрами"

[Dem6]

Я поменял, но все ровно выскакивает та же ошибка.
Я сделал так, и все заработало, значит проблема в этих строчка, вот только какая??

begin
//min:=StrToInt(StringGrid1.Cells[1,1]);
for i:=1 to StringGrid1.ColCount-1 do
for j:=1 to StringGrid1.RowCount-1 do
  begin
//    t:=StrToInt(StringGrid1.Cells[i,j]);
//    if t < min then
//      min:=t;

[Adamrus]

procedure MinMax();
var
      i,j,t,min,max: Integer;
begin
min:=StrToInt(StringGrid1.Cells[1,1]);
max:=min;
for i:=1 to StringGrid1.ColCount-1 do
for j:=1 to StringGrid1.RowCount-1 do
  begin
    t:=StrToInt(StringGrid1.Cells[i,j]);
    if (t<min) then min:=t
    else
    if (t>max) then max:=t   
   end;
end;

Перед запуском убедитесь, что все ячейки в нужном вам диапазоне (1->RowCount и 1->ColCount) содержат целые числа!!!

[Dem6]

Спасибо, Adamrus, за ваши старание!
Я сделал таким способом:

procedure TForm1.Button1Click(Sender: TObject);
var
i, j: integer;
begin
  with StringGrid1 do
   for j := 1 to ColCount - 1 do
      for i := 1 to RowCount - 1 do
         Cells[j, i] := IntToStr(Random(100));
end;

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
a:   array[1..5,1..5] of Integer;
i:   integer;
   J:Integer;
   max: real;
   min: real;
   rez: real;
begin
 For I:=1 To StringGrid1.ColCount-1 Do
    For J:=1 To StringGrid1.RowCount-1 Do
       If  StringGrid1.cells [i,J]<>'' then
          a[i,J]:= StrToInt(StringGrid1.cells [i,J]);
          max:=a[1,1];
  min:=a[1,1];
  For I:=1 To StringGrid1.ColCount-1 Do
    For J:=1 To StringGrid1.RowCount-1 Do
       Begin
         IF a[i,J] > max  Then  max:= a[i,J];
         IF a[i,j] < min  Then  min:= a[i,j];
       end;
       label1.Caption:='Минимальный элемент массива: ' + FloatToStr(min) + #13 +
       'Максимальный элемент массива: ' + FloatToStr(max) + #13 ;

end;

А как мне эти ячейки закрасить?

Может кто примерно скажет, это сделать?

[Roof]

один вопрос в одной теме. По закраске ищи в инете Цветные ячейки в StringGrid.

[Dem6]

 For I:=1 To StringGrid1.ColCount-1 Do
            For J:=1 To StringGrid1.RowCount-1 Do

  begin
        if StringGrid1.Cells[ACol,ARow] = max
    then StringGrid1.Canvas.Brush.color := 12;
    if StringGrid1.Cells[ACol,ARow] = min
    then StringGrid1.Canvas.Brush.color := 13;

Ошибка

[Error] Unit1.pas(69): Incompatible types: 'String' and 'Real'
[Error] Unit1.pas(71): Incompatible types: 'String' and 'Real'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'