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

[Veiron]

Ни как не могу понять почему при использовании этого кода...

var jj : Integer;
     t : String;
begin
for jj:=0 to 4 do
begin
if StrToInt(StringGrid1.Cells[0,jj]) < StrToInt(StringGrid1.Cells[0,jj+1]) then
t:=StringGrid1.Cells[0,jj];
StringGrid1.Cells[0,jj]:=StringGrid1.Cells[0,jj+1];
StringGrid1.Cells[0,jj+1]:=t;
end;

...возникает ошибка '' is not a valid integer value.

[AlDelta]

var jj : Integer;   
     t : String;   
begin   
for jj:=0 to 4 do   
begin   
if StrToInt(StringGrid1.Cells[0,jj]) < StrToInt(StringGrid1.Cells[0,jj+1]) then   
Begin // <----
t:=StringGrid1.Cells[0,jj];   
StringGrid1.Cells[0,jj]:=StringGrid1.Cells[0,jj+1];   
StringGrid1.Cells[0,jj+1]:=t;   
End;// <----
end;

P.S.: Проверяй значения на корректность

[mihali4]

Это означает только одно - как минимум одна ячейка содержит либо пробел (подчеркивание, точку, запятую и т.п.), либо букву, либо ничего вообще, т.е. ''...
Для используемого вами обработчика ячейки в обязательном порядке должны содержать числа и только числа...

[puporev]

1.Что находится в ячейках таблицы?
2.Неправильно организован цикл. Нужно так:
Если размерность массива n тогда
for ii:=0 to n-1 do
for jj:=0 to n-1 do
if StrToInt(StringGrid1.Cells[0,jj]) < StrToInt(StringGrid1.Cells[0,jj+1]) then
begin
t:=StringGrid1.Cells[0,jj];
StringGrid1.Cells[0,jj]:=StringGrid1.Cells[0,jj+1];
StringGrid1.Cells[0,jj+1]:=t;
end;

[Veiron]

В ячейках находятся только целые цифры, ячейки все заполнены, вот может исходник посмотрите за одно может подскажите как лучше его заполнить.

[BOBAH13]

Интресно вот это

for jj:=0 to n-1 do
if StrToInt(Mas.Cells[0,jj]) < StrToInt(Mas.Cells[0,jj+1]) then

если n - максимальное кол-во будь то строк или столбцов то! когда jj будет равен n - 1, значит в сравнении Mas.Cells[0, jj+1 { тут уже будет n }] - я незнаю что он вернет Вы очевидно выходите за границы грида. И еще разве этот цикл дасть сортировку ? меня терзают сомнения на счет этого...

[mihali4]

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

Интресно вот это
...
если n - максимальное кол-во будь то строк или столбцов, то! когда jj будет равен n - 1, значит в сравнении Mas.Cells[0, jj+1 { тут уже будет n }] - я незнаю, что он вернет Вы, очевидно, выходите за границы грида. И еще, разве этот цикл даст сортировку ? меня терзают сомнения на счет этого...

Совершенно справедливо, меня это тоже насторожило, но мало ли, может там размер бешеный, а используется только часть. К тому же при выходе за пределы должна выдаваться характерная ошибка, не так ли, коллега?
З.Ы. (Не обижайтесь на красное - это "Михалыч в своем амплуа")

[BOBAH13]

Да коллега. Я просто вспешке пишу. А ошибка не вызывается наверное из-за того, что просто не доходит дело до нее, а обрывается на переводе типов.
+ Для перевода типов String в Integer ( или в другие числовые ) используйте функцию val, я сам ей постоянно пользуюсь.

[Veiron]

В таком случае как пользоваться этой функцией на данном примере что бы работало?

может там размер бешеный

Если бы, 5row,3col [исходник]

[BOBAH13]

Жмем F1 при выделенном val в среде разработки Delphi