Форум: "Основная";
Текущий архив: 2002.07.04;
Скачать: [xml.tar.bz2];
Вниз
StringGrid - как сделать верхние хреновины нажимаемыми. Найти похожие ветки
← →
greenrul (2002-06-21 14:33) [0]Чтобы можно было сортировать по значениям столбцов?
← →
Kaban (2002-06-21 14:43) [1]А может использовать TListView
Я думаю в StringGrid придется самому отрисовывать фиксированные столбцы
← →
Magic (2002-06-21 15:01) [2]
> Я думаю в StringGrid придется самому отрисовывать фиксированные
> столбцы
Т.е. использовать DrawFrameControl?
← →
Kaban (2002-06-21 15:02) [3]Думаю в OnDrawCell
← →
MBo (2002-06-21 15:09) [4]сортировка строк пузырьком по числу в нажатой колонке
procedure TForm1.StringGrid1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
Var Acol,ARow,i,j:Integer;
begin
with stringgrid1 do begin
MouseToCell(X,Y,Acol,Arow);
if (Arow=0) and (Acol>=FixedCols) then
for i:=FixedRows to RowCount-2 do
for j:=i+1 to RowCount-1 do
if Strtoint(Cells[Acol,i])>strtoint(Cells[Acol,j]) then
SGExchangeRows(StringGrid1,i,j);
end;
end;
← →
Lord Warlock (2002-06-21 15:12) [5]
> MBo ©
Это не пузырек :)))
← →
Kaban (2002-06-21 15:14) [6]2Lord Warlock
Здрасте!
В чистом виде
← →
MBo (2002-06-21 15:16) [7]>Lord Warlock
====================================================================
> 4. Сортировка пузырьком(BubbleSort) и ее улучшения.
====================================================================
Операция сравнения/перестановки выполняется для каждых двух стоящих
рядом элементов. После первого прохода по массиву "вверху" оказывается
самый "легкий" элемент. Следующий цикл сортировки выполняется начиная
со второго элемента, в результате чего вторым в массиве оказывается
второй наименьший по величине элемент, и так далее.
← →
Lord Warlock (2002-06-21 15:16) [8]
> Kaban ©
точно, точно, извиняюсь ,только я всегда его по другому записываю
← →
Lord Warlock (2002-06-21 15:17) [9]да еще и с условием айверсона :)
а обычно предпочитаю сортировку Шелла
← →
Song (2002-06-21 17:09) [10]2MBo, ещё только осталось привести SGExchangeRows() :-))
← →
MBo (2002-06-21 17:52) [11]>Song
UBPFD
это культурное слово ;)
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.07.04;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.004 c
