минимальная длина

[Євгеній Бєлік]

Здравствуйте!
У меня есть сринггрид в котором 40 строчек (разной длины) и 100 столбцов, так вот каким образом можно найти наименьшую длину строки со всех 40-ка строчек. Ответ что бы был в виде индекса столбца (последнее значения наименьшей строки)

Вот первоначальный алгоритм поиска который я составил, но здесь явно банальная ошибка, но не могу найти:

minSg:=0;

for j := 1 to afterUp do
  for i := 0 to StringGrid1.ColCount - 1 do begin
      if (StringGrid1.Cells[i,j]='') then begin
        min:=i-1;
        if (min > minSg) then
        minSg:=min;
      end;
  end;
ShowMessage(StringGrid1.Cells[min,0]);

[Stilet]

k:=0; r:=0;
with StringGrid1 do begin
 for i:=0 to RowCount-1 do begin
  s:=rows[i].text;
  if (Length(s)<k) or (i=0) then begin r:=i;k:=Length(s); end;
 end;
 ShowMessage(StringGrid1.Cells[ColCount-1,r]);
end;

Если не ошибаюсь

[Євгеній Бєлік]

печально, оно все-равно не правильно!

[Євгеній Бєлік]

Stilet, спасибо тебе конечно, но что-то в твоем методе не правильно, но спасибо что попытался помочь.
Тема закрыта, я уже смог доделать и исправить свои ошибки!