Код сортировки чисел

[medved6216]

Проблема вот в чём:
Есть четыре числа записанные в полях Edit1.text, Edit2.text, Edit3.text, Edit4.text
И при нажатии кнопки(Button1) нужно их отсортировать в порядке убывания и записать соответственно в
1.(Самое большое) - label1.caption
2. label2.caption
3. label3.caption
4.(Самое маленькое) - label4.caption

Пишу прогу на Delphi.

P.S.: в голове вертится код, но привести его в жизнь не получается... Помогите, пожалуйста, очень нужно.

[Stilet]

в голове вертится код

Код в студию.
Сортировать массивы умеешь?
Вот пихай в массив эти значения, сортируй (примеров тут куча - например на метод пузырька).

[medved6216]

Сообщение от Stilet

Код в студию.
Сортировать массивы умеешь?
Вот пихай в массив эти значения, сортируй (примеров тут куча - например на метод пузырька).

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

Program BubbleSort;
Var A : array[1..1000] of integer;
N,i,j,p : integer;
Begin
{Определение размера массива A (N) и его заполнение}
…
{сортировка данных}
for i:=1 to n do
for j:=1 to n-i do
if A[j]>A[j+1] then
begin {Обмен элементов}
p:=A[j];
A[j]:=A[j+1];
A[j+1]:=P;
end;
{Вывод отсортированного массива A}
…
End.

Я помню мы проходили это на первом курсе, но это было давненько А сортировку я не часто использую, или даже вообще не использовал. Вот только первая прога, в которой она потребовалась. а то методом сравнения(if a>b then) пытался решить у меня начал мозг кипеть, только потом я вспомнил про сортировку

[Serge_Bliznykov]

заносишь все значения в массив
хотя бы так:

  n := 4;
  A[1] := StrToInt(Trim(Edit1.Text));
  A[2] := StrToInt(Trim(Edit2.Text));
  A[3] := StrToInt(Trim(Edit3.Text));
  A[4] := StrToInt(Trim(Edit4.Text));

тут сортировка массива A
/// ....

// теперь значения обратно в Editэы
  Edit1.Text := IntToStr(A[1]);
  Edit2.Text := IntToStr(A[2]);
  Edit3.Text := IntToStr(A[3]);
  Edit4.Text := IntToStr(A[4]);

а вообще эту задачу можно решить множеством разных способов..

[medved6216]

Сообщение от Serge_Bliznykov

заносишь все значения в массив
хотя бы так:

  n := 4;
  A[1] := StrToInt(Trim(Edit1.Text));
  A[2] := StrToInt(Trim(Edit2.Text));
  A[3] := StrToInt(Trim(Edit3.Text));
  A[4] := StrToInt(Trim(Edit4.Text));

тут сортировка массива A
/// ....

// теперь значения обратно в Editэы
  Edit1.Text := IntToStr(A[1]);
  Edit2.Text := IntToStr(A[2]);
  Edit3.Text := IntToStr(A[3]);
  Edit4.Text := IntToStr(A[4]);

а вообще эту задачу можно решить множеством разных способов..

Мне главное направление было понять, разгребсти так сказать мысли, все я понял решение, сейчас попробую

[medved6216]

Всем спасибо получилось

procedure TForm1.Button3Click(Sender: TObject);
Var A : array[1..1000] of integer;
N,i,j,p : integer;
begin
{Код скрыт}
begin
{Распределение первого места}
n := 4;
A[1] := StrToInt(Trim(panel60.caption));
A[2] := StrToInt(Trim(panel61.caption));
A[3] := StrToInt(Trim(panel62.caption));
A[4] := StrToInt(Trim(panel63.caption));
for i:=1 to n do
for j:=1 to n-i do
if A[j]>A[j+1] then
  begin {Обмен элементов}
    p:=A[j];
    A[j]:=A[j+1];
    A[j+1]:=P;
  end;
  label41.caption := IntToStr(A[1]);
  label39.caption := IntToStr(A[2]);
  label37.caption := IntToStr(A[3]);
  label35.caption := IntToStr(A[4]);
{Код скрыт}
{----END---}
{Код скрыт}
end;
end;