ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Сортировка массива записей по произвольному полю записи
43 сообщений из 43, показаны все 2 страниц
  все  
Сортировка массива записей по произвольному полю записи
    #40074256
antox
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
antox
Участник
Есть запись

Код: pascal
1.
2.
3.
4.
5.
TMyRec = record
  field1,
  field2,
  field3: string;
end;



Есть массив

Код: pascal
1.
a: array of TMyRec;



есть его сортировка

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
for i:=1 to n-1 do
for j:=i+1 to n do
  if a[i].field1>a[j].field1 then
    begin
       tmp:=a[i];
       a[i]:=a[j];
       a[j]:=tmp;
    end;



Как (с помощью крутых и новейших технологий Delphi) вместо field1 подставлять любое поле, чтобы не размножать сортировку для каждого поля в коде? :)
...
Рейтинг: 0 / 0
31.05.2021, 08:59
| Ответить | Цитировать | Написать  
Сортировка массива записей по произвольному полю записи
    #40074257
Gerasimenko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gerasimenko
Участник
antox,

передавать индекс сортируемого поля как параметр
...
Рейтинг: 0 / 0
31.05.2021, 09:01
| Ответить | Цитировать | Написать  
Сортировка массива записей по произвольному полю записи
    #40074262
x1ca4064
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
x1ca4064
Участник
antox

Как (с помощью крутых и новейших технологий Delphi) вместо field1 подставлять любое поле, чтобы не размножать сортировку для каждого поля в коде? :)


Передавать в сортировку функцию сравнения:

function Cmp(a,b:pointer):integer
...
Рейтинг: 0 / 0
31.05.2021, 09:07
| Ответить | Цитировать | Написать  
Сортировка массива записей по произвольному полю записи
    #40074265
antox
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
antox
Участник
Gerasimenko
antox,

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


а как обратиться по индексу?

Код: pascal
1.
a[i].field1>a[j].field1



или писать Case на все случаи?

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
case indx of
0: begin
  for i:=1 to n-1 do
  for j:=i+1 to n do
    if a[i].field1>a[j].field1 then
      begin
         tmp:=a[i];
         a[i]:=a[j];
         a[j]:=tmp;
      end;
1: begin
  for i:=1 to n-1 do
  for j:=i+1 to n do
    if a[i].field2>a[j].field2 then
      begin
         tmp:=a[i];
         a[i]:=a[j];
         a[j]:=tmp;
      end;
2: begin
  for i:=1 to n-1 do
  for j:=i+1 to n do
    if a[i].field3>a[j].field3 then
      begin
         tmp:=a[i];
         a[i]:=a[j];
         a[j]:=tmp;
      end;
end;



Можно как-то хотя бы через указатели (не знаю, как это сделать)?

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
 fld : point;
begin
case indx of
0: fld := ^field1;
1: fld := ^field2;
2: fld := ^field2;
end;
  for i:=1 to n-1 do
  for j:=i+1 to n do
    if a[i].fld^ >a[j].fld^ then
      begin
         tmp:=a[i];
         a[i]:=a[j];
         a[j]:=tmp;
      end;
end;
...
Рейтинг: 0 / 0
31.05.2021, 09:16
| Ответить | Цитировать | Написать  
Сортировка массива записей по произвольному полю записи
    #40074268
antox
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
antox
Участник
x1ca4064
antox

Как (с помощью крутых и новейших технологий Delphi) вместо field1 подставлять любое поле, чтобы не размножать сортировку для каждого поля в коде? :)


Передавать в сортировку функцию сравнения:

function Cmp(a,b:pointer):integer


А как это реализовать на примере?
...
Рейтинг: 0 / 0
31.05.2021, 09:18
| Ответить | Цитировать | Написать  
Сортировка массива записей по произвольному полю записи
    #40074269
Gerasimenko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gerasimenko
Участник
antox,

Код: pascal
1.
2.
3.
4.
5.
TMyRec = record
  field1,
  field2,
  field3: string;
end;



vs

Код: pascal
1.
2.
3.
TMyRec = record
  field: array [0..2] of string;
end;
...
Рейтинг: 0 / 0
31.05.2021, 09:21
| Ответить | Цитировать | Написать  
Сортировка массива записей по произвольному полю записи
    #40074271
antox
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
antox
Участник
Gerasimenko,

Так неудобно обращаться к полям :) Это можно запутаться, где чё хранится
...
Рейтинг: 0 / 0
31.05.2021, 09:27
| Ответить | Цитировать | Написать  
Сортировка массива записей по произвольному полю записи
    #40074276
x1ca4064
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
x1ca4064
Участник
antox

А как это реализовать на примере?


Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
type
  TCmpFun=function (a,b:pointer):integer;

function Cmp1(a,b:pointer):integer;
begin
  if TMyRec(a^).field1>TMyRec(b^).fileld1 then Result=1
  else if TMyRec(a^).field1<TMyRec(b^).fileld1 then Result:=-1
  else Result:=0;
end;

procedure MySort(Data:array of TMyRec;CmpFun:TCmpFun);
begin
  ....
  case CmpFun(@Data[i],@Data[j]) of
  -1:
    ....
  1:
    ...
  end;
end;

begin
  MySort(Data,@Cmp1);
end.



Можно и без указателей, если не нужна универсальность сортировки
...
Рейтинг: 0 / 0
31.05.2021, 09:39
| Ответить | Цитировать | Написать  
Сортировка массива записей по произвольному полю записи
    #40074284
antox
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
antox
Участник
x1ca4064,

Код: sql
1.
2.
3.
4.
5.
6.
function Cmp1(a,b:pointer):integer;
begin
  if TMyRec(a^).field1>TMyRec(b^).fileld1 then Result=1
  else if TMyRec(a^).field1<TMyRec(b^).fileld1 then Result:=-1
  else Result:=0;
end;



Так тут все равно напрямую указано имя поля field1 , а мне что бы по любому имени, или имеется в виду, что для каждого поля будет такая функция:

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
function sField1(a,b:pointer):integer;
begin
  if TMyRec(a^).field1>TMyRec(b^).fileld1 then Result=1
  else if TMyRec(a^).field1<TMyRec(b^).fileld1 then Result:=-1
  else Result:=0;
end;

function sField2(a,b:pointer):integer;
begin
  if TMyRec(a^).field2>TMyRec(b^).fileld2 then Result=1
  else if TMyRec(a^).field2<TMyRec(b^).fileld2 then Result:=-1
  else Result:=0;
end;

function sField3(a,b:pointer):integer;
begin
  if TMyRec(a^).field3>TMyRec(b^).fileld3 then Result=1
  else if TMyRec(a^).field3<TMyRec(b^).fileld3 then Result:=-1
  else Result:=0;
end;
...
Рейтинг: 0 / 0
31.05.2021, 09:56
| Ответить | Цитировать | Написать  
Сортировка массива записей по произвольному полю записи
    #40074288
Fr0sT-Brutal
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Fr0sT-Brutal
Гость
antox
Так тут все равно напрямую указано имя поля field1 , а мне что бы по любому имени, или имеется в виду, что для каждого поля будет такая функция:

Чтобы не указывать, делай массив. Обращаться можно через именованные константы, чтобы не запутываться (rec.Fields[fField1]). Теоретически можно и через RTTI, но ты вряд ли осилишь на текущем уровне, раз уж такие вопросы задаешь
...
Рейтинг: 0 / 0
31.05.2021, 10:26
| Ответить | Цитировать | Написать  
Сортировка массива записей по произвольному полю записи
    #40074299
x1ca4064
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
x1ca4064
Участник
antox
x1ca4064,
Так тут все равно напрямую указано имя поля field1 , а мне что бы по любому имени, или имеется в виду, что для каждого поля будет такая функция:


Да, для каждого поля своя функция сравнения, ее прототип можно сделать таким:

TCmpFun=function (const a,b:TMyRec):integer;

но тогда будет тяжко написать общую процедуру сортировки, которая позволит сортировать почти все:

procedure MySort(const ArrayData;const ElementCount,ElementSize:integer;CmpFun:TCmpFun)
...
Рейтинг: 0 / 0
31.05.2021, 10:53
| Ответить | Цитировать | Написать  
Сортировка массива записей по произвольному полю записи
    #40074307
antox
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
antox
Участник
Fr0sT-Brutal
antox
Так тут все равно напрямую указано имя поля field1 , а мне что бы по любому имени, или имеется в виду, что для каждого поля будет такая функция:

Чтобы не указывать, делай массив. Обращаться можно через именованные константы, чтобы не запутываться (rec.Fields[fField1]). Теоретически можно и через RTTI, но ты вряд ли осилишь на текущем уровне, раз уж такие вопросы задаешь


Не благодари ;)

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
procedure Sort(field_name: string);
var
  i,j,n,f,findx: integer;
  val_i, val_j,  tmp: TMyRec;
  rtype: TRTTIType;
  fields: TArray<TRttiField>;
begin
  n:= High(A);

  rtype := TRTTIContext.Create.GetType(TypeInfo(TMyRec));
  fields := rtype.GetFields;

  findx:=-1;

  for f := Low(fields) to High(fields) do
    if fields[f].Name = field_name then findx := f;

  if findx < 0 then Exit;


  for i:=1 to n-1 do
  for j:=i+1 to n do
    begin
      val_i := a[i];
      val_j := a[j];

      if fields[findx].GetValue(@val_i).ToString > fields[findx].GetValue(@val_j).ToString then
        begin
          tmp:=a[i];
          a[i]:=a[j];
          a[j]:=tmp;
        end;
    end;
end;
...
Рейтинг: 0 / 0
31.05.2021, 11:18
| Ответить | Цитировать | Написать  
Сортировка массива записей по произвольному полю записи
    #40074327
Фотография _Vasilisk_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_Vasilisk_
Участник
antox
Как (с помощью крутых и новейших технологий Delphi) вместо field1 подставлять любое поле
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
TArray.Sort<TMyRec>(a, TComparer<TMyRec>.Construct(
  function (const AItem1, AItem2: TMyRec): Integer
  begin
    Result := AnsiCompareStr(AItem1.Field1, AItem2.Field1);
  end;
));

TArray.Sort<TMyRec>(a, TComparer<TMyRec>.Construct(
  function (const AItem1, AItem2: TMyRec): Integer
  begin
    Result := AnsiCompareStr(AItem1.Field2, AItem2.Field2);
  end;
));
...
Рейтинг: 0 / 0
31.05.2021, 12:14
| Ответить | Цитировать | Написать  
Сортировка массива записей по произвольному полю записи
    #40074329
Фотография _Vasilisk_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_Vasilisk_
Участник
Или
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
TMyRec = record
  field1,
  field2,
  field3: string;
  class function SortByField1(const AItem1, AItem2: TMyRec): Integer;
  class function SortByField2(const AItem1, AItem2: TMyRec): Integer;
end;

class function TMyRec.SortByField1(const AItem1, AItem2: TMyRec): Integer;
begin
   Result := AnsiCompareStr(AItem1.Field1, AItem2.Field1);
end;

class function TMyRec.SortByField2(const AItem1, AItem2: TMyRec): Integer;
begin
   Result := AnsiCompareStr(AItem1.Field2, AItem2.Field2);
end;

TArray.Sort<TMyRec>(a, TComparer<TMyRec>.Construct(TMyRec.SortByField1);
...
Рейтинг: 0 / 0
31.05.2021, 12:19
| Ответить | Цитировать | Написать  
Сортировка массива записей по произвольному полю записи
    #40074350
antox
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
antox
Участник
А вот они - новые технологии ;) Спасибо
...
Рейтинг: 0 / 0
31.05.2021, 13:00
| Ответить | Цитировать | Написать  
Сортировка массива записей по произвольному полю записи
    #40074352
antox
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
antox
Участник
_Vasilisk_
antox
Как (с помощью крутых и новейших технологий Delphi) вместо field1 подставлять любое поле
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
TArray.Sort<TMyRec>(a, TComparer<TMyRec>.Construct(
  function (const AItem1, AItem2: TMyRec): Integer
  begin
    Result := AnsiCompareStr(AItem1.Field1, AItem2.Field1);
  end;
));

TArray.Sort<TMyRec>(a, TComparer<TMyRec>.Construct(
  function (const AItem1, AItem2: TMyRec): Integer
  begin
    Result := AnsiCompareStr(AItem1.Field2, AItem2.Field2);
  end; //<- после end точку с запятой убрать
));



Работает отлично, точка с запятой лишняя
...
Рейтинг: 0 / 0
31.05.2021, 13:06
| Ответить | Цитировать | Написать  
Сортировка массива записей по произвольному полю записи
    #40074362
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DimaBr
Участник
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
for i:=1 to n-1 do
  for j:=i+1 to n do
    if (Index=0 and a[i].field1 > a[j].field1) or
       (Index=2 and a[i].field2 > a[j].field2) or
       (Index=3 and a[i].field3 > a[j].field3) then 
    begin
       tmp:=a[i];
       a[i]:=a[j];
       a[j]:=tmp;
    end;
...
Рейтинг: 0 / 0
31.05.2021, 13:47
| Ответить | Цитировать | Написать  
Сортировка массива записей по произвольному полю записи
    #40074368
antox
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
antox
Участник
_Vasilisk_
antox
Как (с помощью крутых и новейших технологий Delphi) вместо field1 подставлять любое поле
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
TArray.Sort<TMyRec>(a, TComparer<TMyRec>.Construct(
  function (const AItem1, AItem2: TMyRec): Integer
  begin
    Result := AnsiCompareStr(AItem1.Field1, AItem2.Field1);
  end;
));

TArray.Sort<TMyRec>(a, TComparer<TMyRec>.Construct(
  function (const AItem1, AItem2: TMyRec): Integer
  begin
    Result := AnsiCompareStr(AItem1.Field2, AItem2.Field2);
  end;
));



Модернизация под любое поле:

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
procedure SuperSortArray(field_name: string);
var
  rtype: TRTTIType;
  fields: TArray<TRttiField>;
  f,findx: Integer;
  par_a, par_b: string;
begin
  rtype := TRTTIContext.Create.GetType(TypeInfo(TMyRec));
  fields := rtype.GetFields;

  findx:=-1;

  for f := Low(fields) to High(fields) do
    if fields[f].Name = field_name then findx := f;

  if findx < 0 then Exit;

  TArray.Sort<TFieldTovar>(a, TComparer<TMyRec>.Construct(
  function (const AItem1, AItem2: TMyRec): Integer
  begin
    par_a := fields[findx].GetValue(@AItem1).AsString;
    par_b := fields[findx].GetValue(@AItem2).AsString;
    Result := AnsiCompareStr(par_a, par_b);
  end
  ));
end;
...
Рейтинг: 0 / 0
31.05.2021, 13:58
| Ответить | Цитировать | Написать  
Сортировка массива записей по произвольному полю записи
    #40074369
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DimaBr
Участник
antox

Модернизация под любое поле:

А теперь для вещественных полей напишите
...
Рейтинг: 0 / 0
31.05.2021, 14:04
| Ответить | Цитировать | Написать  
Сортировка массива записей по произвольному полю записи
    #40074373
rgreat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
rgreat
Участник
Суровые извращения. Непонятно только зачем.
...
Рейтинг: 0 / 0
31.05.2021, 14:08
| Ответить | Цитировать | Написать  
Сортировка массива записей по произвольному полю записи
    #40074376
antox
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
antox
Участник
DimaBr
antox

Модернизация под любое поле:

А теперь для вещественных полей напишите


:( сортирует, как текст
...
Рейтинг: 0 / 0
31.05.2021, 14:12
| Ответить | Цитировать | Написать  
Сортировка массива записей по произвольному полю записи
    #40074377
antox
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
antox
Участник
rgreat
Суровые извращения. Непонятно только зачем.


Так, вроде, самый простой вариант сортировки массива записей по полям... Не знаю, как проще можно это сделать
...
Рейтинг: 0 / 0
31.05.2021, 14:14
| Ответить | Цитировать | Написать  
Сортировка массива записей по произвольному полю записи
    #40074384
antox
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
antox
Участник
DimaBr
antox

Модернизация под любое поле:

А теперь для вещественных полей напишите


Код: pascal
1.
2.
    //Result := AnsiCompareStr(par_a, par_b);
    Result := CompareValue(par_a, par_b);



Работает
...
Рейтинг: 0 / 0
31.05.2021, 14:20
| Ответить | Цитировать | Написать  
Сортировка массива записей по произвольному полю записи
    #40074385
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DimaBr
Участник
Куда проще ? 22329310
...
Рейтинг: 0 / 0
31.05.2021, 14:20
| Ответить | Цитировать | Написать  
Сортировка массива записей по произвольному полю записи
    #40074386
antox
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
antox
Участник
DimaBr,

Так для этого придется для сортировки каждого массива (а у них разные поля) писать все поля в процедуру :) Руки отвалятся

И так же тоже числа в сортируются как текст, как я понял
...
Рейтинг: 0 / 0
31.05.2021, 14:24
| Ответить | Цитировать | Написать  
Сортировка массива записей по произвольному полю записи
    #40074387
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DimaBr
Участник
antox

Код: pascal
1.
2.
    //Result := AnsiCompareStr(par_a, par_b);
    Result := CompareValue(par_a, par_b);


Работает

Но при этом string не сравнивает, беда......
...
Рейтинг: 0 / 0
31.05.2021, 14:25
| Ответить | Цитировать | Написать  
Сортировка массива записей по произвольному полю записи
    #40074390
Мимопроходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Мимопроходящий
Участник
зафигакай сравнение Variant-ов.
универсально, но медленно.

либо те большие, но по 5 рублей (вчера), либо эти маленькие по 3, но сегодня. (С)
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
31.05.2021, 14:29
| Ответить | Цитировать | Написать  
Сортировка массива записей по произвольному полю записи
    #40074397
Фотография _Vasilisk_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_Vasilisk_
Участник
DimaBr
Но при этом string не сравнивает, беда...
По идее вот так может заработать
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
TArray.Sort<TMyRec>(a, TComparer<TMyRec>.Construct(
  function (const AItem1, AItem2: TMyRec): Integer
  var
    par_a, par_b: TValue;
  begin
    par_a := fields[findx].GetValue(@AItem1);
    par_b := fields[findx].GetValue(@AItem2);
    Result := TComparer<TValue>.Default.Compare(par_a, par_b);
  end
));
...
Рейтинг: 0 / 0
31.05.2021, 14:49
| Ответить | Цитировать | Написать  
Сортировка массива записей по произвольному полю записи
    #40074399
antox
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
antox
Участник
Мимопроходящий

зафигакай сравнение Variant-ов.
универсально, но медленно.

либо те большие, но по 5 рублей (вчера), либо эти маленькие по 3, но сегодня. (С)


уже сделал, но не красиво...
...
Рейтинг: 0 / 0
31.05.2021, 14:52
| Ответить | Цитировать | Написать  
Сортировка массива записей по произвольному полю записи
    #40074401
Мимопроходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Мимопроходящий
Участник
31.05.2021 14:52, antox пишет:
> уже сделал, но не красиво...

одно яичко выше? (С)
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
31.05.2021, 14:54
| Ответить | Цитировать | Написать  
Сортировка массива записей по произвольному полю записи
    #40074404
antox
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
antox
Участник
_Vasilisk_
DimaBr
Но при этом string не сравнивает, беда...
По идее вот так может заработать
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
TArray.Sort<TMyRec>(a, TComparer<TMyRec>.Construct(
  function (const AItem1, AItem2: TMyRec): Integer
  var
    par_a, par_b: TValue;
  begin
    par_a := fields[findx].GetValue(@AItem1);
    par_b := fields[findx].GetValue(@AItem2);
    Result := TComparer<TValue>.Default.Compare(par_a, par_b);
  end
));



Немного подправил (Variant вместо TValue) и заработало:

Код: pascal
1.
2.
3.
4.
    par_a := fields[findx].GetValue(@AItem1).AsVariant;
    par_b := fields[findx].GetValue(@AItem2).AsVariant;

    Result := TComparer<Variant>.Default.Compare(par_a, par_b);
...
Рейтинг: 0 / 0
31.05.2021, 14:57
| Ответить | Цитировать | Написать  
Сортировка массива записей по произвольному полю записи
    #40074406
antox
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
antox
Участник
Также работает и эта конструкция:

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
procedure Sort(field_name: string);
var
  i,j,n,f,findx: integer;
  val_i, val_j,  tmp: TMyRec;
  rtype: TRTTIType;
  fields: TArray<TRttiField>;
begin
  n:= High(A);

  rtype := TRTTIContext.Create.GetType(TypeInfo(TMyRec));
  fields := rtype.GetFields;

  findx:=-1;

  for f := Low(fields) to High(fields) do
    if fields[f].Name = field_name then findx := f;

  if findx < 0 then Exit;


  for i:=1 to n-1 do
  for j:=i+1 to n do
    begin
      val_i := a[i];
      val_j := a[j];

      if fields[findx].GetValue(@val_i).AsVariant> fields[findx].GetValue(@val_j).AsVariantthen
        begin
          tmp:=a[i];
          a[i]:=a[j];
          a[j]:=tmp;
        end;
    end;
end;
...
Рейтинг: 0 / 0
31.05.2021, 14:59
| Ответить | Цитировать | Написать  
Сортировка массива записей по произвольному полю записи
    #40074407
antox
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
antox
Участник
Мимопроходящий

31.05.2021 14:52, antox пишет:
> уже сделал, но не красиво...

одно яичко выше? (С)


третье появилось :D
...
Рейтинг: 0 / 0
31.05.2021, 14:59
| Ответить | Цитировать | Написать  
Сортировка массива записей по произвольному полю записи
    #40074410
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DimaBr
Участник
Более чем уверен, что через год, смотря на это синтаксический мусор, вы будите думать, а что же тут происходит?
...
Рейтинг: 0 / 0
31.05.2021, 15:02
| Ответить | Цитировать | Написать  
Сортировка массива записей по произвольному полю записи
    #40074411
antox
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
antox
Участник
Возникает вопрос, что быстрее будут работать

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
for i:=1 to n-1 do
  for j:=i+1 to n do
    begin
      val_i := a[i];
      val_j := a[j];

      if fields[findx].GetValue(@val_i).AsVariant> fields[findx].GetValue(@val_j).AsVariantthen
        begin
          tmp:=a[i];
          a[i]:=a[j];
          a[j]:=tmp;
        end;
    end;



или

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
TArray.Sort<TMyRec>(a, TComparer<TMyRec>.Construct(
  function (const AItem1, AItem2: TMyRec): Integer
  var
    par_a, par_b: TValue;
  begin
    par_a := fields[findx].GetValue(@AItem1);
    par_b := fields[findx].GetValue(@AItem2);
    Result := TComparer<Variant>.Default.Compare(par_a, par_b);
  end
));
...
Рейтинг: 0 / 0
31.05.2021, 15:03
| Ответить | Цитировать | Написать  
Сортировка массива записей по произвольному полю записи
    #40074414
rgreat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
rgreat
Участник
antox,

Premature optimization.

Тромозить будет не это.
...
Рейтинг: 0 / 0
31.05.2021, 15:20
| Ответить | Цитировать | Написать  
Сортировка массива записей по произвольному полю записи
    #40074418
Фотография _Vasilisk_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_Vasilisk_
Участник
antox
Возникает вопрос, что быстрее будут работать
Очевидно же, что второй вариант. Быстрая сортировка всегда быстрее пузырьковой
...
Рейтинг: 0 / 0
31.05.2021, 15:36
| Ответить | Цитировать | Написать  
Сортировка массива записей по произвольному полю записи
    #40074423
rgreat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
rgreat
Участник
_Vasilisk_,

Тьфу, блин.
Я на разницу в приведении типов смотрел а на то что они там в первом случае еще метод и пузырька зачем-то приделал.
...
Рейтинг: 0 / 0
31.05.2021, 15:52
| Ответить | Цитировать | Написать  
Сортировка массива записей по произвольному полю записи
    #40074453
Фотография Maxim Rusov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Maxim Rusov
Участник
_Vasilisk_
antox
Возникает вопрос, что быстрее будут работать
Очевидно же, что второй вариант. Быстрая сортировка всегда быстрее пузырьковой

Вообще - не всегда, но первый вариант - ниразу не пузырьковая сортировка.
...
Рейтинг: 0 / 0
31.05.2021, 17:08
| Ответить | Цитировать | Написать  
Сортировка массива записей по произвольному полю записи
    #40074473
Фотография _Vasilisk_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_Vasilisk_
Участник
Maxim Rusov
первый вариант - ниразу не пузырьковая сортировка.
А что это тогда?
...
Рейтинг: 0 / 0
31.05.2021, 17:49
| Ответить | Цитировать | Написать  
Сортировка массива записей по произвольному полю записи
    #40074476
ъъъъъ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ъъъъъ
Гость
_Vasilisk_
Maxim Rusov
первый вариант - ниразу не пузырьковая сортировка.
А что это тогда?

Пузырькова сортировка в цикле переставляет элементы до тех пор, пока не случится пустой проход.
А тут - какой-то декартов п....ц.
...
Рейтинг: 0 / 0
31.05.2021, 17:52
| Ответить | Цитировать | Написать  
Сортировка массива записей по произвольному полю записи
    #40074479
Фотография Maxim Rusov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Maxim Rusov
Участник
_Vasilisk_,

https://www.toptal.com/developers/sorting-algorithms
...
Рейтинг: 0 / 0
31.05.2021, 18:00
| Ответить | Цитировать | Написать  
Сортировка массива записей по произвольному полю записи
    #40076062
Uridian
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Uridian
Гость
antox
Так тут все равно напрямую указано имя поля field1 , а мне что бы по любому имени, или имеется в виду, что для каждого поля будет такая функция


чтобы не указывать имя поля при сортировке по любому из них:

 
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
unit TestTypes;
interface
uses System.SysUtils, Generics.Defaults, Generics.Collections;
type
  TMyRec = record
    type TIndex = 1..3;
    var
    field1,
    field2,
    field3: string;
    function Field (idx: TIndex): string;
  end;
  TMyArray = TArray <TMyRec>;
implementation
function TMyRec.Field(idx: TIndex): string;
begin
  case idx of              // не особо элегантно, но работает
    1: Result := field1;
    2: Result := field2;
    3: Result := field3;
  end;
end;
procedure DoSomething (idx: TMyRec.TIndex);
var
  a: TMyArray;
begin
  SetLength (a, 1000);
  TArray.Sort <TMyRec> (a, TComparer <TMyRec>.Construct (
    function (const L,R: TMyRec): Integer
    begin
      Result := AnsiCompareStr (L.Field(idx), R.Field(idx));
    end
    ));
end;
end.

...
Рейтинг: 0 / 0
07.06.2021, 12:29
| Ответить | Цитировать | Написать  
43 сообщений из 43, показаны все 2 страниц
  все  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Сортировка массива записей по произвольному полю записи
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]