Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 23.06.2013, 23:01   #1
Pilyla
Пользователь
 
Регистрация: 16.12.2012
Сообщений: 42
По умолчанию Сортировка таблицы

Помогите ,пожалуйста, разобраться с кодом ..( В общем я могу описать, но понять каждую строчку не могу)..
Код:
procedure TForm9.SgSort(StrGrid: TStringGrid; SortColumn: integer);
function Uslovie(s2, s1: string): boolean;
var vl1, vl2:Extended;
begin
if tryStrtoFloat(s1,vl1) and tryStrtoFloat(s2,vl2) then
Result:= vl1 > vl2 else Result:= s1 > s2;
end;
var i, j, k: integer;
sTemp: string;
begin
with StrGrid do
for i := FixedRows to RowCount-2 do
for j := i + 1 to RowCount-1 do
if Uslovie(Cells[SortColumn, i], Cells[SortColumn, j]) then
for k := FixedCols to ColCount-1 do
begin
sTemp:= Cells[k, i];
Cells[k, i]:= Cells[k, j];
Cells[k, j]:= sTemp;
end;
end;
Pilyla вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Сортировка таблицы в форме stogs Microsoft Office Excel 1 13.06.2013 18:51
Собственная сортировка таблицы ACMILAN22 Помощь студентам 3 23.09.2012 11:37
Сортировка таблицы и создание отчета mrKenai Microsoft Office Excel 5 21.03.2011 14:51
сортировка таблицы absbelii Microsoft Office Excel 10 28.02.2011 09:57
Сортировка таблицы (массива) Лесная Эльфийка Паскаль, Turbo Pascal, PascalABC.NET 0 26.12.2010 20:25