Ошибка в сортировке

[puporev]

Нашел ошибку. Нужно не

for ii:=0 to n-1 do
for jj:=0 to n-1 do

а for ii:=0 to n-2 do
for jj:=0 to n-2 do
Поправил и все заработало.

[Veiron]

Во!!! Спасибо, а то уже какой месяц ошибки найти не мог...

[Alter]

Ну правильно, нет проверки на валидность.

Вот правильный вариант:

procedure TForm1.Button2Click(Sender: TObject);
var jj,ii,n,n1,I:Integer;
     t:String;
begin
                              // Добавлено -> N1,I
n:=Mas.RowCount;
N1 := Mas.ColCount; // Добавлено
 FOR I:=0 To N-1 DO // Добавлено
for ii:=0 to N1-1 do
  for jj:=0 to n-1 do
    IF JJ<n-1 then    // Добавлено
    if StrToInt(Mas.Cells[II,jj]) < StrToInt(Mas.Cells[II,jj+1]) then
    begin
     t:=Mas.Cells[II,jj];
     Mas.Cells[II,jj]:=Mas.Cells[II,jj+1];
     Mas.Cells[II,jj+1]:=t;
    end;
end;

[puporev]

При чем здесь N1 := Mas.ColCount;, если сортировка идет в одной колонке, смотрите тему с начала.

[BOBAH13]

Вам уже дали ответы, зачем еще тянуть посты ? Если конечно больше вопросов нет ?