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

Вниз

сортировка в StringGridе   Найти похожие ветки 

 
AlexJ   (2002-09-28 01:47) [0]

Уважаемые мастера! Вы уж мне (чайнику) ответьте, как в StringGridе сортировать строки. Например, по дате, по алфавиту. Заранее, спасибо!


 
PaRL ©   (2002-09-28 16:45) [1]

Я в своей проге делал TStringList - он сортировать умеет, дату не проверял, но должен работать.
//Массив. Можно динамический сделать.
type xxx = array [1..100] of array [0..100] of string;
var x : TStringList;
m, s, col, N, F, d, k : integer;
str : xxx;
begin
N := SG.ColCount-1;
F := SG.RowCount-2;

for m := 1 to F do
for s := 0 to N do
str[m, s] := SG.Cells[s, m];

x := TStringList.Create;
for m := 1 to SG.RowCount-2 do
x.Add(SG.Cells[0,m]); //заполняем StringList

x.Sort; //сортируем

for m := 1 to SG.RowCount-2 do
SG.Cells[0,m] := x.Strings[m-1]; //заносим обратно


for k := 1 to F do
for m := 1 to F do
if str[k, 0] = SG.Cells[0, m] then
for s := 1 to N do
SG.Cells[s, m] := str[k, s];


Я давно это делал, помню у меня там своя какая-то особенность была, так что сам уж разберись.



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

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

Наверх




Память: 0.46 MB
Время: 0.013 c
14-31955
Igor_thief
2002-09-15 13:17
2002.10.10
Hook


1-31837
sedalgin
2002-09-27 11:30
2002.10.10
Модальная форма была в dll ... (стихи, однако)


14-31993
СЕВАСТОПОЛЕЦ
2002-09-13 23:59
2002.10.10
СЕВАСТОПОЛЬ ОТЗОВИСЬ!!!


14-32006
qwerty123x
2002-09-16 12:38
2002.10.10
Сколько стоит заказать сантехника? (я имею в виду услуги киллера)


1-31753
Wetnose
2002-10-01 08:38
2002.10.10
Delphi 7 и Delphi for .NET Preview