안녕하세요

저는 내일 시험을 봐야 하는데 이 문제가 해결이 안되서 이렇게 도움을 요청합니다.



출력조건에 보면 주문 상품 출력시 각 상품의 수주량으로 내림차순을 하고 만약 동일한 수주량의 상품이 있을때는 상품의 주문횟수에 따라 오름차순으로 한다라고 되어 있습니다



그래서 저는 밑에 써 있는 것처럼 2차 정렬을 했는데 두번째 조건 동일 수주량의 상품의 있을 때는 주문횟수에 따라 오름차순으로 한다라는 부분이 처리가 되질 않습니다



원인이 무엇인지 설명 꼭 부탁드립니다



procedure TForm1.Button2Click(Sender: TObject);

var i, j, i_row : integer;

temprecord : outrecord;



begin

if count < 1 then

begin

showmessage('등록된 자료가 없습니다');

edit1.SetFocus;

exit;

end;



process;



for i := 1 to count-1 do

for j := i+1 to count do

if out_data[i].out3 < out_data[j].out3 then

begin

temprecord := out_data[i];

out_data[i] := out_data[j];

out_data[j] := temprecord;

end;



for i := 1 to count-1 do

for j := i+1 to count do

if out_data[i].out3 = out_data[j].out3 then

begin

if out_data[i].number > out_data[j].number then

begin

temprecord := out_data[i];

out_data[i] := out_data[j];

out_data[j] := temprecord;

end;

end;



form1.hide;

form2.show;



end;