Скачать: CL | DM;

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 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.011 c