Список. Сортировка.

[pobedin]

Здравствуйте. Сортирую список, но ничего не происходит. В чем мб причина?
p.s. number представлен как integer;

procedure TfrmMain.SortList;
var
  tmp, tmps: TPList;
begin
  curr := head;
  while curr <> nil do
  begin
    tmp := curr^.next;
    while tmp <> nil do
    begin
      if tmp^.number < curr^.number then
      begin
        tmps := tmp;
        tmp := curr;
        curr := tmps
      end;
      tmp := tmp^.next
    end;
    curr := curr^.next
  end;
end;

[Step_UA]

Вам необходимо обменивать значение поля Number в списке, а не указатели

var i:integer;
       . . .
if tmp^.number < curr^.number then
   begin
    i := tmp^.number; 
    tmp ^.number:= curr^.number;
    curr^.number := i
   end;

[Serge_Bliznykov]

Вам необходимо обменивать значение поля Number в списке, а не указатели

Это было хорошо и правильно, если бы в структуре не было больше других полей!

вот у автора в другой теме описание структур:

type
  TPList = ^TList; //указатель на тип

  TList = record
    name: string[20];
    number: string[20];
    value: string[10];
    typeProd: string[10];
    color: string[10];
    next: TPList; // следующий элемент списка
  end;

очевидно, что поменять местами только Number приведёт к хаосу и разброду остальных полей.

pobedin, для сортировки списка нужно не обменивать записи местами, а корректировать указатели так, чтобы записи физически остались на своих местах, а вот их позиции в списке поменялись.

p.s. если не разберётесь самостоятельно и попозже будет у меня время - набросаю примерчик-иллюстрацию...

[pobedin]

завтра сдавать курсовую, так что к этому времени видимо не разберусь. еще много работы. если позже напишите пример, буду признателен.

[evg_m]

вводим еще 4 переменные

prevcurr, prevtmp, nextcurr, nexttmp: TPList;

задаем их значения так чтобы они указывали на соседей (впереди prev и после -next) наших записей (curr, tmp). их заполнение остается тебе.
И меняем ссылки в списке

prevcurr.next:=tmp;
tmp.next:=nextcurr; // поставили tmp на место curr 
prevtmp.next:=curr;
curr..next:=nexttmp; // поставили curr на место tmp

curr:=prevcurr.next;// теперь меняем сами curr (просто берем новую ссылку из предыдущего)
tmp;=prevtmp.next; //тоже для rmp

если подумать можно обойтись меньшим число переменных.
и конечно надо будет учесть что curr и tmp могут быт в начале/конце списка. что-то вроде
curr=hard / prevcurr=nil
tmp.next =nil / nexttmp =nil

сам цикл будет вроде этого

//  curr := head;
  prevcurr:=nil;
  if prevcurr=nil then curr:=head else curr:=prevcurr.next;
  while curr <> nil do
  begin
     prevtmp:=curr;
     tmp := prevtmo.next;
    while tmp <> nil do
       if tmp.number <>curr.number then begin
// а prevcurr и prevtmp уже есть
// так что меняем как написано выше (нее забыв про nextcurr nexttmp)
       end;
//      tmp := tmp^.next
      prevtmp:=tmp;
     tmp := prevtmo.next;
    end;
//    curr := curr^.next
     prevcurr:=curr;
     curr:=prevcurr.next;
end;

[Serge_Bliznykov]

завтра сдавать курсовую

ок. Если Вам главное, чтобы сортировка работала (неважно, оптимально Вы сделали так, как положено - меняя указатели, или, неоптимально, меняя полностью информационное наполнение) тогда можете попробовать такой код (это второй вариант - неоптимальный):

procedure TfrmMain.SortList;
var
  curr: TPList;
  tmp, tmps: Tlist;
  Link1, Link2: TPList;
  wasChange: boolean;
begin
  wasChange := false;
  repeat
    curr := head;
    while curr <> nil do
    begin
      if curr^.Next <> nil then begin
        tmp := curr^.Next^;
        if tmp.number < curr^.number then
        begin
          Link1 := tmp.Next;
          Link2 := curr^.Next;
          tmps := tmp;
          tmp := curr^;
          curr^ := tmps;
          tmp.Next := Link1;
          curr^.Next := Link2;
          wasChange := true;
        end;
      end;
      curr := curr^.next
    end;
  until not wasChange;
end;

p.s. код на работоспособность я не проверял, поэтому за правильность НЕ ПОРУЧУСЬ...

p.p.s. вечером постараюсь написать правильный вариант

[pobedin]

спасибо. вечером попробую и отпишу работоспособность

[Step_UA]

Это было хорошо и правильно, если бы в структуре не было больше других полей!

Ну не получится с меня телепата ...
тогда с корректировкой указателей:

procedure TfrmMain.SortList;
var
  p_curr,p_tmp,tmp, p_min,min: TPList;
begin
  curr := head; 
  while curr^.next <> nil do
  begin
    p_tmp := curr;
    tmp:=curr^.next;
    min:=curr;
    while tmp <> nil do
    begin
      if tmp^.number < min^.number then
       begin
        min:=tmp;
        p_min:=p_tmp
       end;
       p_tmp:=tmp;
       tmp:=tmp^.next;
     end; 
    if curr<>min tnen
     begin
      if curr=head then head:=min
            else p_curr^.next:=min
      p_min^.next:=curr;
      tmp:=curr^.next;
      curr^.next:=min^.next;
      min^.next:=tmp;
      p_curr:=min
     end
     else p_curr:=curr;
   curr := p_curr^.next
  end;
end;

[Serge_Bliznykov]

1) мой пример кода из пост #6 - кривой и не работает!
его абсолютно несложно исправить

procedure TfrmMain.SortListBad;
var
  curr: TPList;
  tmps : Tlist;
  tmp : TPList;
  Link1, Link2: TPList;
  wasChange: boolean;
begin
  repeat
    curr := head;
    wasChange := false;
    while curr <> nil do
    begin
      if curr^.Next <> nil then begin
        tmp := curr^.Next;
        if tmp^.number < curr^.number then
        begin
          Link1 := tmp^.Next;
          Link2 := curr^.Next;
          tmps := tmp^;
          tmp^ := curr^;
          curr^ := tmps;
          tmp^.Next := Link1;
          curr^.Next := Link2;
          wasChange := true;
        end;
      end;
      curr := curr^.next
    end;
  until not wasChange;
end;

но не вижу смысла его использовать, если есть рабочий вариант от Step_UA (смотри замечание ниже)


2) то, что писал evg_m в пост #5 - абсолютно в точку. я об этом и пытался сказать...

3) код Step_UA я проверил. всё работает.
(только есть пара мелких опечаток: tnen и точки с запятой не хватает,
вот исправленный кусочек кода:

    if curr <> min then
    begin
      if curr = head then head := min
      else p_curr^.next := min;