Помогите пожалуйста связать поле Memo с процедурой сортировки

[Алексей_xXx]

не знаю как связать поле мемо, в которое ввожу числадля сортироки, с самой процедурой быстрой сортировки. Программа в Делфи пишу, а процедуру быстрой сортировки нашёл в инете, но там написано было что она вроде бля паскаля, вот незнаю так проканает или нет. Подскажите кто знает!


Это начало проги
unit Unit1;

interface

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

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

var
FName: string;
Form1: TForm1;

implementation

{$R *.dfm}

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

end.


ПРОЦЕДУРА СОРТИРОВКИ!

Procedure QuickSort(Left,Right:Integer;var X:myArr ); {Left - левая граница массива}
Var I,J,Y,W,L:Integer; {Right - правая граница массива}
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;


а вот связать не могу их.......

[crystalbit]

насколько я понимаю, эта процедура работает с массивом
попробуй процедуре передать Memo1.Lines.Strings
думаю, что еще стоит объявить тип

type
  MyArr = array of string;

Если вдруг что не сработает - попробуй перегнать строки в массив, думаю, что это не составит труда
и массив передаешь процедурке и получаешь отсортированный, потом снова в строки

[Алексей_xXx]

[QUOTE=crystalbit;255467]насколько я понимаю, эта процедура работает с массивом
попробуй процедуре передать Memo1.Lines.Strings


а как передать?

[crystalbit]

переделал процедурку для массива строк, как-то так

type
  MyArr=array of string;

Procedure QuickSort(Left,Right:Integer;var X:myArr ); {Left - ëåâàÿ ãðàíèöà ìàññèâà}
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
    memo1.Lines.Add(f[i]);
end;

но вся соль в том, что сортирует наоборот и с учетом регистра (ascii кода)

п.с. можно и так, если не принципиален метод

  with TStringList.Create do begin
    Text:=Memo1.Text;
    Sort;
    Memo1.Text:=Text;
    Free;
  end;

[Алексей_xXx]

А как она запускаеться? Я type прописываю вверху где все другие значения type написаны процедуру перед эндом пишу, а потом создаю поле мемо и кнопку как там написано. Затем на кнопку тыкаю и прописываю саму процедуру. А она ошибки выдает! Скажите что я не правильно делаю пожалуйста!

[evg_m]

вводить в Edit
по Enter переносим в ListBox сортируем Sorted=true Sort

[crystalbit]

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

А как она запускаеться? Я type прописываю вверху где все другие значения type написаны процедуру перед эндом пишу, а потом создаю поле мемо и кнопку как там написано. Затем на кнопку тыкаю и прописываю саму процедуру. А она ошибки выдает! Скажите что я не правильно делаю пожалуйста!

процедуру не в кнопку надо, а в межзвездное простанство, то есть вне процедуры
используй мой второй вариант и не будет проблем
evg_m, к черту ListBox, там тот же TStrings)

[Алексей_xXx]

Спасибо crystalbit большое сделал как говоришь-заработало!. мне по Quiksort надо, 2ой вариант не катит.
У меня ещё вопросик. Прога сортирует по строкам, а для сортироки цифр которые написаны через пробелы поле Memo не подходит?

[crystalbit]

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

а для сортироки цифр которые написаны через пробелы поле Memo не подходит?

в массив загонять только)