сортировка в Memo

[tiger]

скажите пожалуйста как сортировать линии в поле мемо по алфавиту?

[NikLik]

Просто рассматриваешь TMemo как одномерный массив.

procedure tform1.BinSort(L,R:longint);
var
i,j:longint;
buf,el:string;
begin
 i:=l;
 j:=r;
 el:= memo1.Lines.Strings[(l+r) div 2];
 while i<=j do
  begin
   while memo1.Lines.Strings[i]<el do
    inc(i);
    while memo1.Lines.Strings[j]>el do
     dec(j);
    if i<=j then
     begin
      buf:=memo1.Lines.Strings[i];
      memo1.Lines.Strings[i]:=memo1.Lines.Strings[j];
      memo1.Lines.Strings[j]:=buf;
      inc(i);
      dec(j);
     end;
  end;
  if l<j then
   BinSort(l,j);
  if i<r then
   BinSort(i,r);
end;

Не уверен, что самый быстрый способ, но он работает)
Пример использования:
binsort(0,memo1.Lines.count-1);

[_Dmitry]

Еще вариант

var
  Lines: TStringList;
begin
  Lines:=TStringList.Create;
  Lines.AddStrings(Memo1.Lines);
  Lines.Sort;
  Memo1.Lines:=Lines;
  Lines.Free;
end;

[tiger]

спасибо всем огромное! вопрос решен! безусловно второй вариант поэкономнее будет. первый и правда не самый быстрый