сотрировка stringgrid

[Ant_M]

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

procedure TForm4.Button3Click(Sender: TObject);
var
  i, j, z: integer;
  s: string;
const
  sorted = 6;
begin
try
  with StringGrid1 do
    for i := 1 to RowCount - 2 do
      for j := i + 1 to RowCount - 1 do
        if strtoint(Cells[sorted, i]) < strtoint(Cells[sorted, j]) then
          for z := 1 to colcount - 1 do
          begin
            s := Cells[z, i];
            Cells[z, i] := Cells[z, j];
            Cells[z, j] := s;
          end;
except
begin
ShowMessage('Сортировка завершена!');
end;
end;
end;

[Serge_Bliznykov]

в принципе код нормальный...

только два вопроса.
1-й. Зачем сообщение о том, что сортировка завершена в событии на ошибку (except) ?!
2-й. Вы сообщение "'Сортировка завершена!" видите? Если да - то однозначно, у Вас возникае exception (исключение), скорее всего при попытке преобразовать строку в число, где строка числом не является! (и, скорее всего, это значение именно в последней строке и находится!)

hint. Используйте или StrToIntDef() или TryStrToInt()

[Ant_M]

как только вставляешь StrToIntDef или TryStrToInt начинает ругаться

[Serge_Bliznykov]

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

как только вставляешь StrToIntDef или TryStrToInt начинает ругаться

Плохо. А как вставляете?! Как ругается?!

кроме того, Вы полностью проигнорировали мои вопросы в пост #2
Вы думаете, решение вашей проблемы больше меня интересует, чем Вас?!

[Ant_M]

Вставила потому что выскакивает "is not valid integer value" думаю скорее всего из за того что ниже строки пустые.
вставила StrToIntDef красным подчеркивает и все ошибку нигде не пишет

[Serge_Bliznykov]

вставили так?!

       if StrToIntDef(Cells[sorted, i], 0) < StrToIntDef(Cells[sorted, j], 0) then
          for z := 1 to colcount - 1 do

[Ant_M]

Блин нет без 0,они для чего можете объяснить?

[Serge_Bliznykov]

могу.

StrToIntDef function

Converts a string that represents an integer (decimal or hex notation) to a number.

Unit

Sysutils

Category

type conversion routines

function StrToIntDef(const S: string; Default: Integer): Integer;

Description

StrToIntDef converts the string S, which represents an integer-type number in either decimal or hexadecimal notation, into a number. If S does not represent a valid number, StrToIntDef returns the number passed in Default.

перевод от гугл-транслейт

Преобразует строку, представляющую целое число (десятичное или шестнадцатеричном виде) в число.

модуль Sysutils

категория
процедуры преобразования типов

Функция StrToIntDef ( S: String; Default : Integer): Integer;

описание
StrToIntDef преобразует строку S, который представляет собой целое число типа в десятичном или шестнадцатеричном формате, в число. Если S не является действительным числом, StrToIntDef возвращает число, заданное по умолчанию (параметр Default)

0 вернёт функция, если у Вас в ячейке пустая строка или какой-то мусор, которые не может быть распознан, как целое число.

А на будущее рекомендую смотреть встроенный хелп в Delphi (я процитировал именно его) или гуглить по названию функции в интернете. Поверьте, это проще, чем спрашивать на форуме...

[Ant_M]

спасибо огромное!