Тема Указатели! Pascal

[ElenCelsi]

Используя один просмотр текстового файла , вывести все его строки в порядке увеличения содержания в них цифр (строки должны содержать цифры).
-----------------------------------------------------------------
См ниже!

[Stilet]

нужно во время "просмотра" файла занести "наши" строки в список, потом произвести сортировку списка и выводить ответ в порядке увеличения, но как это сделать я не могу напечатать

Может имелось ввиду

  assign(f, 'ftest.txt'); reset(f);
  while not seekeof(f) do
  begin
    readln(f, s);
    n := Count(s);
    if n > 0 then begin
     AddToList(MyList, s, n);
     MyList.start := SortList(Mylist.start);
    end;
  end;
  close(f);

[ElenCelsi]

А как связать это с моей прогой?
p.s. Не сильна в Паскале (Прогу знакомый делал)

[Son Of Pain]

Почему же этот друг не дописал до конца :D

function Count(s: string): integer;
var i:integer;
begin
result:=0;
for i:=1 to length(s) do
if s[i] in ['0'..'9'] then inc(result);
end;

From Stilet: Какого карапуза код не оформляем?

[ElenCelsi]

Говорит "лень было"(вот и знакомый)

[Son Of Pain]

Не друг значит

[ElenCelsi]

Сообщение от Son Of Pain

Не друг значит

Полностью с тобой солидарна!) Так программа так должна выглядеть полностью?

[Son Of Pain]

Ну функция для подсчета цифр теперь есть, а так лень всматриваться, попробуй запусти )

[ElenCelsi]

Сообщение от Son Of Pain

Ну функция для подсчета цифр теперь есть, а так лень всматриваться, попробуй запусти )

Спасибо большое за помощь! :]

В общем, программа компилируется и выводит строки уже созданного файла, но не в порядке увеличения!(

[Stilet]

Предлагаю свое видение сортира:

 
function SortList(L: PNode): PNode;
var i,j:PNode;q:TNode;
begin
 i:=l;
 while i<>nil do begin
   j:=l;
   while j<>nil do begin
    if i^.s>j^.s then begin
      q:=i^;
      i^.n:=j^.n;i^.s:=j^.s;
      j^.n:=q.n;j^.s:=q.s;
    end;
    j:=j^.next;
   end;
  i:=i^.next;
 end;
end;

А так же

MyList.start := SortList(Mylist.start);

замени на

  SortList(Mylist.start);

Нефик портить указатели.