Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.07.18;
Скачать: CL | DM;

Вниз

Сортировка содержимого таблицы по алфавиту   Найти похожие ветки 

 
Roland88   (2004-07-01 21:53) [0]

Есть StringGrid, в каждой строке первая ячейка содержит ФИО на русском языке. Как отсортировать строки таблицы в алфавитном порядке(по первой ячейке каждой строки).


 
8ung   (2004-07-01 22:15) [1]

Есть компонент TBKStringGrid. Он подойдёт. Посмотри на torry.ru


 
GanibalLector ©   (2004-07-02 01:59) [2]

2 8ung  
А это еще зачем???
Что, неужели сложно самим написать?Не вижу ничего сложного.
Вот,например сортировка грида по возрастанию и убыванию.Точно таким же образом и с сортировкой по алфавиту.


procedure TForm1.SpeedButton2Click(Sender: TObject);
var i,ii:integer;
C_name,C_t1,C_t2:string;
begin
for ii:=1 to StringGrid2.rowcount-3 do
for i:=1 to StringGrid2.rowcount-2 do begin
      if StringGrid2.Rowcount-2>=i+1 then begin
        if strtoint(StringGrid2.Cells[2,i])>strtoint(StringGrid2.Cells[2,i+1]) then begin
                                                       C_name:=StringGrid2.cells[1,i];
                                                       C_t1:=StringGrid2.Cells[2,i];
                                                       C_t2:=StringGrid2.cells[3,i];
                 StringGrid2.Cells[1,i]:=StringGrid2.Cells[1,i+1];
                 StringGrid2.Cells[2,i]:=StringGrid2.Cells[2,i+1];
                 StringGrid2.Cells[3,i]:=StringGrid2.Cells[3,i+1];
                                                      StringGrid2.Cells[1,i+1]:=C_name;
                                                      StringGrid2.Cells[2,i+1]:=C_t1;
                                                      StringGrid2.Cells[3,i+1]:=C_t2;
                                                                          end;
                                         end;
                                       end;

///////////////////////////////

for ii:=1 to StringGrid3.rowcount-3 do
for i:=1 to StringGrid3.rowcount-2 do begin
      if StringGrid3.Rowcount-2>=i+1 then begin
        if strtoint(StringGrid3.Cells[3,i])<strtoint(StringGrid3.Cells[3,i+1]) then begin
                                                       C_name:=StringGrid3.cells[1,i];
                                                       C_t1:=StringGrid3.Cells[2,i];
                                                       C_t2:=StringGrid3.cells[3,i];
                 StringGrid3.Cells[1,i]:=StringGrid3.Cells[1,i+1];
                 StringGrid3.Cells[2,i]:=StringGrid3.Cells[2,i+1];
                 StringGrid3.Cells[3,i]:=StringGrid3.Cells[3,i+1];
                                                      StringGrid3.Cells[1,i+1]:=C_name;
                                                      StringGrid3.Cells[2,i+1]:=C_t1;
                                                      StringGrid3.Cells[3,i+1]:=C_t2;
                                                                          end;
                                         end;
                                       end;
end;




Страницы: 1 вся ветка

Текущий архив: 2004.07.18;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.044 c
1-1089019622
serg128
2004-07-05 13:27
2004.07.18
Как отследить нажатие клавиши на клавиатуре?


14-1088351549
Knight
2004-06-27 19:52
2004.07.18
У кого есть плугин для миранды, отображающий...


14-1088368452
VID
2004-06-28 00:34
2004.07.18
Цифровой фотоаппарат


9-1074944472
Zak3D[@Tm]
2004-01-24 14:41
2004.07.18
Где достать DelphiX для Delphi7?


8-1083744370
Guf
2004-05-05 12:06
2004.07.18
OpenGL, текст, 2D