Главная страница
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.029 c
8-1083565954
pirat
2004-05-03 10:32
2004.07.18
Графический редактор: определить объект под крусором. Как?


14-1088593444
Kerk
2004-06-30 15:04
2004.07.18
ENV{ PATH_INFO }


3-1087986665
Leech
2004-06-23 14:31
2004.07.18
Переносимость базы...


14-1088162043
Nickola2
2004-06-25 15:14
2004.07.18
Пожалуйста, помогите с дистрибьютивом.


8-1083349209
GlavBOTan
2004-04-30 22:20
2004.07.18
Wave-header