[TotKtoNado]

почему массив не сортируеться?

Код:

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

for k:=i to High(ItemList) do   begin     if ItemList[i-1].Statya='' then     begin       bufAllDateArray:=ItemList[i].AllDateArray;       bufStatya:=ItemList[i].Statya;       bufSumma:=ItemList[i].Summa;       bufSkidka:=ItemList[i].Skidka;       bufSchet:=ItemList[i].Schet;       bufVal:=ItemList[i].Val;       bufCom:=ItemList[i].Com;       ItemList[i+1].AllDateArray:=ItemList[i].AllDateArray;       ItemList[i+1].Summa:=ItemList[i].Summa;       ItemList[i+1].Skidka:=ItemList[i].Skidka;       ItemList[i+1].Schet:=ItemList[i].Schet;       ItemList[i+1].Val:=ItemList[i].Val;       ItemList[i+1].Com:=ItemList[i].Com;       ItemList[i].AllDateArray:=bufAllDateArray;       ItemList[i].Statya:=bufStatya;       ItemList[i].Summa:=bufSumma;       ItemList[i].Skidka:=bufSkidka;       ItemList[i].Schet:=bufSchet;       ItemList[i].Val:=bufVal;       ItemList[i].Com:=bufCom;     end;   end;

[Моклев]

потому что нужно два цикла и что-то не так с переменными цикла, цикл по k но в индексах i, как минимум так:

Код:

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

for k:=0 to High(ItemList) do for i:=0 to High(ItemList)-k do   begin     if ItemList[i-1].Statya='' then     begin       bufAllDateArray:=ItemList[i].AllDateArray;       bufStatya:=ItemList[i].Statya;       bufSumma:=ItemList[i].Summa;       bufSkidka:=ItemList[i].Skidka;       bufSchet:=ItemList[i].Schet;       bufVal:=ItemList[i].Val;       bufCom:=ItemList[i].Com;       ItemList[i+1].AllDateArray:=ItemList[i].AllDateArray;       ItemList[i+1].Summa:=ItemList[i].Summa;       ItemList[i+1].Skidka:=ItemList[i].Skidka;       ItemList[i+1].Schet:=ItemList[i].Schet;       ItemList[i+1].Val:=ItemList[i].Val;       ItemList[i+1].Com:=ItemList[i].Com;       ItemList[i].AllDateArray:=bufAllDateArray;       ItemList[i].Statya:=bufStatya;       ItemList[i].Summa:=bufSumma;       ItemList[i].Skidka:=bufSkidka;       ItemList[i].Schet:=bufSchet;       ItemList[i].Val:=bufVal;       ItemList[i].Com:=bufCom;     end;   end;

[TotKtoNado]

Сообщение от Моклев

потому что нужно два цикла и что-то не так с переменными цикла, цикл по k но в индексах i, как минимум так:

Код:

все равно не сортируеться