Работа с таблицей

[anubiss]

(Delphi) Подскажите пожалуйста как в StringGrid (заполненный числами) определить номер столбца с наибольшим количеством отрицательных элементов??

[Serge_Bliznykov]

не поверите - нужно в цикле пройтись по всем столбцам, для каждого числа найти количество отрицательных элементов в этом столбце и найти тот столбец, где это количество - максимально!

Что у Вас не получается?

[anubiss]

не ну это конечно понятно)) А вот как в коде это записать??

[BDA]

maxc:=-1;
pos:=-1;
for i:=0 to sg.colcount-1 do
begin
  c:=0;
  for j:=0 to sg.rowcount-1 do
    if sg.cells[i,j]<>'' then
      if sg.cells[i,j][1]='-' then
        inc(c);
  if c>maxc then
  begin
    maxc:=c;
    pos:=i;
  end;
end;

Писал здесь, так что возможны ошибки)
[offtop]Serge_Bliznykov, всю малину порчю([/offtop]

[Serge_Bliznykov]

не поверите - командами соответствующего языка программирования.

на Delphi это будет примерно так:

MaxIndex:=-1;
MaxValue := 0;
for j:=0 to StringGrid1.ColCount-1 do begin
   CurCountNeg :=0;
   for i:=0 to StringGrid1.RowCount-1 do
       if IntToStr( StringGrid1.Cells[j, i] )<0 then Inc(CurCountNeg);
   if (MaxIndex<0) or (CurCountNeg>MaxValue) then begin
         MaxValue := CurCountNeg;  
         MaxIndex := j          
   end;
end;
ShowMessage('Максимальное количество отр.чисел в столбце'+IntToStr(MaxIndex));

BDA, да ничего страшного. лишь бы TC в предложенных ему вариантах решения разобрался!

[anubiss]

Огромное спасибо!!
А на счёт весов извините, я просто забыл их поставить))