Сортирует цифры по строкам, а надо чтобы сортировала цифры , записанные через пробелы

[alex_fcsm]

замените Edit1.text на Memo1.Lines[0]

procedure TForm1.Button1Click(Sender: TObject);
procedure Translate(b:integer);

Procedure QuickSort(Left,Right:Integer;var X:array of integer ); {Left - e"a*a^a`y" a~?a`i'e`o"a` i`a`n~n~e`a^a`}
var
  i,j,y,w:integer;
Begin
  i:=Left;
  j:=Right;
  y:=x[(Left+Right) div 2];
  Repeat
    While x[i]>y do Inc(I);
    While y>x[J] do Dec(J);
    If I<=J then begin
      w:=x[i];
      x[i]:=x[J];
      x[J]:=w;
      Inc(I);
      Dec(J);
    end;
  Until I>J;
  If Left<J then QuickSort(Left,J,X);
  If I<Right then QuickSort(I,Right,X);
End;

var s,sub:string;
    a:array[1..100] of integer;
    i,j:integer;

begin
s:=Memo1.Lines[b];//переписываем строку в s
i:=0;j:=0;
while i<=length(s) do // пока не просмотрим всю строку
 begin
  sub:='';
  while (s[i]<>' ') and (i<=length(s)) do // пока не встретим пробел или просмотрим всю строку
   begin
     if s[i] in ['0'..'9'] then sub:=sub+s[i]; // считываем очередное число
     inc(i);
   end;
   inc(j);// изменяем индекс +1
   a[j]:=StrToInt(sub); // переводим его в integer и заносим в массив
   inc(i);
 end;
 QuickSort(0,j-1,a);// сортируем
 Memo1.Lines[b]:='';
for i:=1 to j do
 Memo1.Lines[b]:=Memo1.Lines[b]+IntTostr(a[i])+' ';//записываем в мемо
end;

var l:integer;

begin
 for l:=0 to Memo1.Lines.Count-1 do
  Translate(l);
end;

[Алексей_xXx]

Круто! ещё раз спасибо , сам бы не додумался до этого!

[alex_fcsm]

Киньте на форму 2button, memo, opendialog

procedure TForm1.Button1Click(Sender: TObject);
procedure Translate(b:integer);

Procedure QuickSort(Left,Right:Integer;var X:array of integer ); {Left - e"a*a^a`y" a~?a`i'e`o"a` i`a`n~n~e`a^a`}
var
  i,j,y,w:integer;
Begin
  i:=Left;
  j:=Right;
  y:=x[(Left+Right) div 2];
  Repeat
    While x[i]>y do Inc(I);
    While y>x[J] do Dec(J);
    If I<=J then begin
      w:=x[i];
      x[i]:=x[J];
      x[J]:=w;
      Inc(I);
      Dec(J);
    end;
  Until I>J;
  If Left<J then QuickSort(Left,J,X);
  If I<Right then QuickSort(I,Right,X);
End;

var s,sub:string;
    a:array[1..100] of integer;
    i,j:integer;

begin
s:=Memo1.Lines[b];
i:=0;j:=0;
while i<=length(s) do
 begin
  sub:='';
  while (s[i]<>' ') and (i<=length(s)) do
   begin
     if s[i] in ['0'..'9'] then sub:=sub+s[i];
     inc(i);
   end;
   inc(j);
   a[j]:=StrToInt(sub);
   inc(i);
 end;
 QuickSort(0,j-1,a);
 Memo1.Lines[b]:='';
for i:=1 to j do
 Memo1.Lines[b]:=Memo1.Lines[b]+IntTostr(a[i])+' ';
end;

var l:integer;

begin
 for l:=0 to Memo1.Lines.Count-1 do
  Translate(l);
end;


procedure TForm1.Button2Click(Sender: TObject);
var f:textfile;
    s:string;
begin
Memo1.Clear;
OPenDialog1.Execute;
assignfile(f,Opendialog1.FileName);
reset(f);
while not(eof(f)) do
 begin
  readln(f,s);
  Memo1.Lines.Add(s);
 end;
end;

end.

[Алексей_xXx]

Translate что процедура делает понять не могу.

[alex_fcsm]

Сообщение от Алексей_xXx

Translate что процедура делает понять не могу.

Берет строку из Мемо и сортирует числа в ней

Добавил несколько комментариев(пост №11)