Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  4 724

•  TDictionary Custom Sort  6 725

•  Fast Watermark Sources  6 508

•  3D Designer  9 446

•  Sik Screen Capture  6 839

•  Patch Maker  7 289

•  Айболит (remote control)  7 231

•  ListBox Drag & Drop  6 094

•  Доска для игры Реверси  97 849

•  Графические эффекты  7 407

•  Рисование по маске  6 704

•  Перетаскивание изображений  5 560

•  Canvas Drawing  5 942

•  Рисование Луны  5 719

•  Поворот изображения  5 180

•  Рисование стержней  3 786

•  Paint on Shape  2 966

•  Генератор кроссвордов  3 907

•  Головоломка Paletto  3 105

•  Теорема Монжа об окружностях  3 915

•  Пазл Numbrix  2 578

•  Заборы и коммивояжеры  3 372

•  Игра HIP  2 313

•  Игра Go (Го)  2 212

•  Симулятор лифта  2 623

•  Программа укладки плитки  2 205

•  Генератор лабиринта  2 723

•  Проверка числового ввода  2 360

•  HEX View  2 698

•  Физический маятник  2 374
 
скрыть

Сортировка столбцов в StringGrid


Автор: http://www.sources.ru 

procedure GridSort(StrGrid: TStringGrid; NoColumn: Integer);
var
  Line, PosActual: Integer;
  Row: TStrings;
begin
  Renglon := TStringList.Create;
  for Line := 1 to StrGrid.RowCount - 1 do
  begin
    PosActual := Line;
    Row.Assign(TStringlist(StrGrid.Rows[PosActual]));
    while True do
    begin
      if (PosActual = 0) or (StrToInt(Row.Strings[NoColumn - 1]) >=
        StrToInt(StrGrid.Cells[NoColumn - 1, PosActual - 1])) then
        Break;
      StrGrid.Rows[PosActual] := StrGrid.Rows[PosActual - 1];
      Dec(PosActual);
    end;
    if StrToInt(Row.Strings[NoColumn - 1]) < StrToInt(StrGrid.Cells[NoColumn -
      1, PosActual]) then
      StrGrid.Rows[PosActual] := Row;
  end;
  Renglon.Free;
end;