VPF::Сортировка в БД - Форум программистов

COOLJohn

Дата 12.1.2006, 09:01 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 33
Регистрация: 30.12.2005

Репутация: нет
Всего: нет

Можно-ли при помощи такого кода (сортировка методом слияния) сортировать поля в базе данных:

Код


type ar=array1[1..n] of integer;
var k,m,i:integer;
a,b,c:ar;

procedure sorting4;
var s,i,j:integer;
begin
i:=1;
j:=1;
s:=1;
{i-номер обрабатываемого элемента части а
 j-номер обрабатываемого элемента части b
 s-номер заполняемого массива части с}
while (i<=k) and (j<=m) do
{пока не закончилась хотя-бы одна чать}
begin
if a[i]<=b[i] then 
begin c[s]:=a[i]; inc(i); end
else begin c[s]:=b[j]; inc(i); end;
inc(s);
end;
{один из массивов-частей обработан полностью}
{осталось перенести в С остаток другого массива-части}
while i<=k do
begin c[s]:=a[i]; inc(i); inc(s); end;
while j<=m do
begin c[s]:=b[j]; inc(j); inc(s); end;
end;

procedure sorting2(var p:ar; len:integer);
var f,i,t:integer
{f - номер просмотра (изменяется от 1 до n-1)
 i - номер рассматриваемой пары
 t - промежуточная переменная для перестановки местами элементов}
begin
for f:=1 to len-1 do
{цикл по номеры просмотра}
for i:=1 to len-f do
if p[i]>p[i+1] then
{перестановка элементов}
begin
t:=p[i];
p[i]:=p[i+1];
p[i+1]:=t;
end;
end;

begin
k:=n div 2;
{n-порядковый номер последней записи}
m:=n-k;
for i:=1 to k do a[i]:=?Первое поле таблицы[порядковый номер существующей записи]?;
for i:=1 to m do b[i]:=?Первое поле таблицы[порядковый номер существующей записи+k]?;
sorting2(a,k);
sorting2(b,m);
sorting4;
for i:=1 to n do ?Первое поле таблицы[порядковый номер существующей записи]?;
end.

Сортировать по другому мне нельзя, если только другим методом сортировки.

Тип базы данных Paradox 7.
SQL использовать не могу, т.к. обязательно нужно пременить метод сортировки.

Это сообщение отредактировал(а) COOLJohn - 12.1.2006, 10:21

Guedda

Дата 12.1.2006, 09:34 (ссылка)

(нет голосов)

Загрузка ...

Подрывник

Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: нет
Всего: 78

А какой тип базы данных? Paradox, DB...?
Можешь ли ты воспользоваться SQL???

--------------------

Ll 2

<Spawn>

Дата 12.1.2006, 10:06 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 2
Всего: 64

Если используешь SQL, то читай хелп оп ORDER BY (Обрати внимание на направления сортировки - ASC, DESC)

--------------------

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »