Сортировка[Delphi]

[sergey31]

Спасибо большое, все заработало!

[sergey31]

alexBlack, вы были правы. Не понравилась работа преподавателю, сказал что нужно выделять ячейки, а то не уследишь за обменами. Прошу совета: как можно изменить цвет у конкретной ячейки?

[alexBlack]

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

Прошу совета: как можно изменить цвет у конкретной ячейки?

Запоминать координаты измененных ячеек и рисовать их в OnDrawCell.
Например так

procedure TForm1.StringGrid1DrawCell(Sender: TObject; Col, Row: Integer;
  Rect: TRect; State: TGridDrawState);

  // из кода VCL
  procedure DrawCellText;
  var
    S: string;
  begin
    with StringGrid1 do begin
       S := Cells[Col, Row];
       ExtTextOut(Canvas.Handle, Rect.Left + 2, Rect.Top + 2, ETO_CLIPPED or
          ETO_OPAQUE, @Rect, PChar(S), Length(S), nil);
    end;
  end;

begin
  // Если col, row - выделенная ячейка - выделяем текст
  StringGrid1.Canvas.Font.Style := [fsBold];

  DrawCellText;
end;

[sergey31]

Спасибо, буду разбираться.