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

[Алексей_xXx]

Помогите пожалуйста, прогрммма сортирует цифры , записанные в файл по строкам. А надо чтобы сортировала цифры записанные через пробелы!
Как так сделать?

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Memo2: TMemo;
    Button2: TButton;
    Button3: TButton;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FName: string;
  Form1: TForm1;

implementation


{$R *.dfm}
   type
  MyArr=array of string;

Procedure QuickSort(Left,Right:Integer;var X:myArr ); {Left - e"a*a^a`y" a~?a`i'e`o"a` i`a`n~n~e`a^a`}
var
  i,j:integer;
  y,w:string;
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;


procedure TForm1.Button1Click(Sender: TObject);

   var
  f:MyArr;
  i:integer;
begin
  for i:=0 to memo1.Lines.Count-1 do begin
    SetLength(f,i+1);
    f[i]:=memo1.Lines.Strings[i];
  end;
  quicksort(0,Length(f)-1,f);
  memo1.lines.Clear;
  for i:=0 to Length(f)-1 do
    memo2.Lines.Add(f[i]);
end;



procedure TForm1.Button2Click(Sender: TObject);
begin
 if OpenDialog1.Execute then
begin
FName := OpenDialog1.FileName;
Memo1.Lines.LoadFromFile(FName);
end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  Memo2.Lines.SaveToFile(FName);
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
Close();
end;

end.

[Stilet]

По поводу сортировки рекомендую такое:

var  st:TStringList; s:string;i:integer;
begin
 s:='1 2 56 2 68 894 23 45 7'; // Получили строку
 st:=TStringList.Create;
 st.Delimiter:=' '; // Разделитель пробел
 st.DelimitedText:=s; // Разделили в массив
 st.Sorted:=true; // отсортировали
 caption:=st.DelimitedText // вывели отсортированное
end;

Смысл ясен?

[Алексей_xXx]

мне нужно именно алгоритмом быстрой сортировки !

[alex_fcsm]

Зачем усложнять там где можно обойтись стандартными средствами?
Тогда парсите строку и числа заносите в массив и его уже сортируйте.

[Алексей_xXx]

Задание дано , что именно этим алгоритмом! Что такое "парсить"?

[alex_fcsm]

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

Задание дано , что именно этим алгоритмом! Что такое "парсить"?

1. Прочитать исходную строку
2. пока не конец строки делать
2.1 считывать символы пока не встретим пробел или конец строки
2.2 перевести полученную подстроку в число и занести в массив
3. Отсортировать полученный массив(процедура вроде как у Вас есть)
то что имел ввиду(на Паскале)

uses crt;
var s,sub:string;
    a:array[1..100] of integer;
    i,j,code:integer;
begin
clrscr;
readln(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);
   val(sub,a[j],code);
   inc(i);
 end;
for i:=1 to j do
 write(a[i],' ');
end.

[Алексей_xXx]

Спасибо конечно, но в Delphi я реализовать это не смогу.

[alex_fcsm]

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

Спасибо конечно, но в Delphi я реализовать это не смогу.

procedure TForm1.Button1Click(Sender: TObject);

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:=Edit1.text;
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);
 Edit1.Text:='';
for i:=1 to j do
 Edit1.Text:=edit1.Text+IntTostr(a[i])+' ';
end;

[Алексей_xXx]

Спасибо alex_fcsm!!!!!!
Можно ещё вопросик.
Поле Memo нельзя в данном случае использовать для ввода цифр и вывода цифр?

[Stilet]

Поле Memo нельзя в данном случае использовать для ввода цифр и вывода цифр?

Можно, если справишся с получением из него данных.
Будеш вводить одна цифра - одна строка, еще ничего, тогда как к массиву обращайся, а если через пробел, тогда парсить придется.