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

Вниз

Сорт. по дате.   Найти похожие ветки 

 
Елена   (2002-01-27 22:30) [0]

У меня есть StringGrid, в него заносятся всякие данные, в том числе и дата. Мне нужно написать сортировку по дате, как это можно осуществить путём наименьших усилий?


 
MBo ©   (2002-01-28 08:17) [1]

procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
d,m,y:integer;
begin
randomize;
for i:=0 to sg1.rowcount-1 do begin
for j:=0 to sg1.colcount-1 do begin
if i=0 then begin
d:=random(30)+1;
y:=random(10)+1993;
m:=random(12)+1;
sg1.cells[i,j]:=datetostr(encodedate(y,m,d))
end
else sg1.cells[i,j]:=chr(random(26)+64);
end;
end;//заполнение случ. датами
end;

procedure TForm1.Button2Click(Sender: TObject);
var i,j:integer;
temp:tstringlist;
begin
temp:=TStringList.Create;
for i:=0 to SG1.RowCount-2 do begin
for j:=i+1 to SG1.RowCount - 1 do
if strtodate(SG1.Cells[0,i])>strtodate(SG1.Cells[0,j]) then
begin
Temp.Assign(SG1.Rows[i]);
SG1.Rows[i].Assign(SG1.Rows[j]);
SG1.Rows[j].Assign(Temp);
end;//сортировка пузырьком- для больших таблиц лучше
//QuickSort
end;
Temp.Free;
end;



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

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

Наверх




Память: 0.46 MB
Время: 0.008 c
4-32368
Oxy2
2001-11-01 00:30
2002.02.11
Как конвертировать pst-файлы (OutLook2000) в dbx-файлы (OutLook Express 5)


1-32293
madcap
2002-01-28 22:53
2002.02.11
Как узнанть создан ли уже объект или нет


3-32120
olban
2002-01-15 12:50
2002.02.11
Трехзвенная система


1-32234
Andger
2002-01-27 15:23
2002.02.11
Delphi виснет при палитре > 16 цветов


3-32167
binom
2002-01-03 15:52
2002.02.11
SDAC by CoreLab - прямой доступ к MS SQL без БДЕ, АДО и пр.