Delphi (работа со строками)

[infectbot]

Помогите решить такое задание.
Дана строка символов, состоящая из произвольных десятичных цифр, разделенных пробелами. Вывести на экран числа этой строки в порядке возрастания их значений.
(исходные данные вводить с помощью компонента TEdit в компонент TListBox либо с помощью свойства Text в свойство Items компонента TComboBox. Скалярный результат выводить c помощью компонента TLabel. Ввод строки заканчивать нажатием клавиши Enter. Для выхода из программы использовать кнопку Close. Для расчетов вводить несколько различных строк).

[Андрей.12]

stim-lg@rambler.ru договоримся

[IT-man]

Стучи в аську!договоримся!

[3opkuu']

есть такой вариант.. сначала значения TEdit загнать в текстовик, а уже от туда с помощью read загрузить значения в переменные(если не понял скажи=))

[QuadroX]

Вот все сделал как было указано в условии. Если что не так, то могу переделать. Исходники с построчными комментариями. Цена 200р.

ICQ: 323787261.

[Stilet]

есть такой вариант.

Ужаснейший вариант.
Все гораздо проще, вот пример получения чисел из строки в массив.

  var e,s:string;k,i:integer;a:array of integer;
begin
 s:='28 in for me 365 at 8 but not 6';
 e:='';
 i:=1; while(i<=length(s)) do begin
  if s[i] in ['0'..'9'] then e:=e+s[i]
  else begin
   if e<>'' then  begin
    SetLength(a,Length(a)+1);
    val(e,a[High(a)],k);
   end;
   e:='';
  end;
  inc(i);
 end;
 for i:=low(a) to high(a) do write(a[i],' ');
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Теперь автору остается отсортировать его методом пузырька и дело в шляпе