StringGrid, выделение ячеек.

[robin39]

Сообщение от Stilet

А то что я дал не годится?

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

[Serge_Bliznykov]

выделение ты написал, только там ручное, а мне автоматическое надо)

ну так в чём проблемы - перебирайте все элементы, ищите максимальный. Найденный столбец выделяйте (благо код выделения уже у Вас есть!). В чём сложности?

p.s. "меня терзают смутные сомнения...." А у Вас вообще хоть что-нибудь есть? Проект есть работающий?! Если есть, то на какой он стадии? Если затык только в выделении столбца с максимальным значением, то можно помочь. Запакуйте исходники проекта в архив и прикрепите к сообщению на форуме... поможем...

[robin39]

Вроде вот. Я один сделал, да вариант оказался не тот. Сказали переделать. Тут я вообще застопорился.

[Stilet]

robin39

Что-то это совсем не то...
Ты зачем Эдиты в ReadOnly поставил? Что куда вводить то нужно?

Вот смотри:

procedure TForm1.Button1Click(Sender: TObject);
 var
   m,k,i, j: integer;          // объявляем переменные
begin
   m:=-MaxInt;
   For i:=0 to 11 do
    for j:= 0 to 11 do begin
        k:=(random(201)-100);
        if m<k then begin
         m:=k;
         StringGrid1.Tag:=i;
        end;
        stringGrid1.Cells[i,j]:=inttostr(k);
    end;
StringGrid1.Repaint;
end;

Это по клику на кнопку заполнения

А это процедура отрисовки:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  if acol=StringGrid1.tag then begin
   with StringGrid1 do begin
    with Canvas do begin
     Pen.Color:=clRed;
     Pen.Width:=3;
     MoveTo(rect.Left,Rect.Top);    LineTo(Rect.Left,Rect.Bottom);
     MoveTo(Rect.Right,Rect.Top);    LineTo(Rect.Right,Rect.Bottom);
     if (arow=0) then       MoveTo(Rect.Left+2,Rect.Top);    LineTo(Rect.Right-2,Rect.Top);
     if (arow=RowCount-1) then       MoveTo(Rect.Left+2,Rect.Bottom);    LineTo(Rect.Right-2,Rect.Bottom);
    end
   end;
 end;
end;

[robin39]

Edit сделал так, что бы можно было вводить строки только через главное меню, а столбцы через Combobox. У меня по заданию так.

[robin39]

вопрос может конечно идиотский, но я неочень хорошо шарю в Delphi.
Почему мы пишем -MaxInt а не просто MaxInt.
И несовсем понятно строчка if m<k then begin m:=k;

[Serge_Bliznykov]

Почему мы пишем -MaxInt а не просто MaxInt.

нельзя просто MaxInt
Нужно именно -MaxInt (впрочем, т.к. диапазон генерируемых чисел ограничен от -100 до 100
то можно взять ЛЮБОЕ число меньше нижнего диапазона.
например. m := -1000;

дальше

 if m<k then begin m:=k;

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

[robin39]

Спасибо. Теперь понял.



а как наибольшее значение перенести из каждого столбца StrinGrid1 в каждую ячейку StringGridw