Сортировка в Stringrid

[Ant_M]

на первой форме логин и пароль 1,потом вход. есть конечно в меню справка вроде там все описано.
На второй форме ввод всего,потом записать открывается третья форма,на ней три кнопки считать из файла записать в файл,сортировка.

[BDA]

Вы не приложили Unit111, поэтому я не могу скомпилировать проект.

Попробуйте:

procedure TForm4.Button3Click(Sender: TObject);
var
  i, j, z: integer;
  s: string;
const
  sorted = 4;
begin
  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;
end;

Я в прошлый раз использовал имя для переменной, которое есть у StringGrid, как свойство (из-за этого, скорее всего, не работало).

[Ant_M]

вот. сейчас сама еще попробую

[Ant_M]

Это программа рассчитана как я поняла только на две строки так?

[BDA]

Нет, почему Вы так решили?
Это одна из простейших сортировок (названия не знаю).

UPD
Пожалуйста

[Ant_M]

Все проверила,большое спасибо! Буду обязательно разбираться!