Родились сегодня:
Азимджон
colt38


Лидеры рейтинга

ID: 226425

Konstantin Shvetski

Модератор

981

Россия, Северодвинск


ID: 165461

Лангваген Сергей Евгеньевич

Советник

690

Россия, Московская обл.


ID: 398750

Елена Васильевна

Специалист

402

Беларусь, Гомель


ID: 401284

Михаил Александров

Академик

320

Россия, Санкт-Петербург


ID: 137394

Megaloman

Мастер-Эксперт

204

Беларусь, Гомель


ID: 400669

epimkin

Профессионал

186


ID: 401888

puporev

Профессор

163

Россия, Пермский край


8.3.1

01.03.2021

JS: 2.4.1
CSS: 4.4.0
jQuery: 3.5.1


 

Создание программ на языках Pascal, Delphi и Lazarus.

Администратор раздела: Зенченко Константин Николаевич (Старший модератор)


Зенченко Константин Николаевич
Статус: Старший модератор
Рейтинг: 286
Gluck
Статус: 8-й класс
Рейтинг: 196
puporev
Статус: Профессор
Рейтинг: 163
 

Перейти к консультации №:
 

Консультация онлайн # 199778
Раздел: • Pascal / Delphi / Lazarus
Автор вопроса: lov3nt (Посетитель)
Дата: 05.12.2020, 15:54
Поступило ответов: 1

Здравствуйте! Прошу помощи в следующем вопросе:
Delphi
Есть процедура сортировки StringGrid, которая сортирует значения по убыванию в заданном столбце.
Процедура не сортирует вообще.
При тестировании процедуры вводимые значения: таблица показанная на изображении и 7 столбец

Приложение:

-----
Прикрепленное изображение (кликните по картинке для увеличения):

Состояние: Консультация закрыта

Ответ # 280446 от puporev (Профессор)

Здравствуйте, lov3nt!
Перестановка строк таблицы по убыванию злементов последнего столбца.

procedure TForm1.Button2Click(Sender: TObject);
var i,j:integer;
    s:string;
begin
with StringGrid1 do
for i:=fixedrows to rowcount-2 do
for j:=i to rowcount-1 do
if strtofloat(cells[colcount-1,i])<strtofloat(cells[colcount-1,j]) then
 begin
  s:=rows[i].Text;
  rows[i].Assign(rows[j]);
  rows[j].Text:=s;
 end;
end;


Консультировал: puporev (Профессор)
Дата отправки: 05.12.2020, 16:23

Рейтинг ответа:

+1

[подробно]

Сообщение
модераторам

Отправлять сообщения
модераторам могут
только участники портала.
ВОЙТИ НА ПОРТАЛ »
регистрация »

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