[Nataly]

здравствуйте..

подскажите пожалуйста как сделать сортировку простых чисел
например

есть:
7
5
3
2
1
4
8
9
нужно:
1
2
3
4 и.т.д

вот незнаю как..

[lmikle]

Например, методом пузырька.

Код:

var
  A : Array Of Integer; // Где-то описан массив

procedure BubleSort;
var
  I, J, Buf : Integer;
begin
  For I := Low(A) To High(A) - 1 Do
    For J := I + 1 To High(A) Do
      If A[i] > A[J] Then
         Begin
           Buf := A[i];
           A[i] := A[J];
           A[J] := Buf;
         End;
end;

[Nataly]

спасибо, за метод пузырька, но мне не совсем понятно как зделать сортировку если данные в TStringList находятся..?

[lmikle]

Ну, в общем так же. Только данные не в массиве, а в StringList и их, видимо, надо при сортировке конвертировать. А вообще, когда задаешь вопрос, надо более детально писать, что бы небыло недопонимания.

Low(A) = 0
High(A) = StringList.Count-1
A[i] = StrToInt(StringList[i])
A[J] = StrToInt(StringList[J])
Замена (то, что выполняется в условии) = StringList.Exchange(I,J);