Сортирование в Мемо по длине строки

[denis76560]

Здравствуйте. подскажите пожалуйста как отсортировать текс в Мемо по длине строки ?
пробовал таким способом

procedure TForm1.SortMemo2;
var I,j: integer;
tmp: string;
begin
for j:=0 to memo6.Lines.Count-1 do
for i:=0 to memo6.Lines.Count-2 do
 begin
  if length(memo6.Lines[i])>length(memo6.Lines[i+1]) then
   begin
    tmp:=memo6.Lines[i];
    memo6.Lines[i]:=memo6.Lines[i+1];
    memo6.Lines[i+1]:=tmp;
   end;
 end;
end;

но он работает ужасно долго

[Аватар]

используй для сортировки TStringList и его метод CustomSort

[denis76560]

прогуглил этот метод, но по длине строки для этого компонента, увы, не нашел. =(

[Аватар]

А чего без гугла ни как? Длины строк сравнивай в Compare-функции

[Serge_Bliznykov]

попробуйте такой код:

procedure TForm1.Button1Click(Sender: TObject);
 
  function StringListCompareByLength(List: TStringList; Index1, Index2: Integer): Integer;
  var t1, t2 : integer;
  begin
      t1 := Length(List.Strings[Index1]);
      t2 := Length(List.Strings[Index2]);
      if t1=t2 then Result := 0
      else
        if t1<t2 then Result := 1
        else Result := -1
  end;
var TS : TStringList;
begin
  try
    TS := TStringList.Create;
    TS.Text := Memo1.Lines.Text;
    TS.CustomSort( @StringListCompareByLength );
    Memo1.Lines.Text := TS.Text;
  finally
    FreeAndNil(TS);
  end;
end;

[northener]

Сообщение от denis76560

Здравствуйте. подскажите пожалуйста как отсортировать текс в Мемо по длине строки ?
пробовал таким способом

procedure TForm1.SortMemo2;
var I,j: integer;
tmp: string;
begin
for j:=0 to memo6.Lines.Count-1 do
for i:=0 to memo6.Lines.Count-2 do
 begin
  if length(memo6.Lines[i])>length(memo6.Lines[i+1]) then
   begin
    tmp:=memo6.Lines[i];
    memo6.Lines[i]:=memo6.Lines[i+1];
    memo6.Lines[i+1]:=tmp;
   end;
 end;
end;

но он работает ужасно долго

Можно добавить сразу после первого begin строчку

memo6.Lines.BeginUpdate;

А после циклов строчку м

memo6.Lines.EndUpdate;

Скорость сразу возрастет до сравнимой со скоростью сортировки в TStringList.

[Аватар]

Скорость сразу возрастет до сравнимой со скоростью сортировки в TStringList

Ни чего подобного. Она возрастет сравнительно с вариантом из #1. Но с вариантом из #5 её скорость все равно будет на порядок хуже

[evg_m]

maxl:=0;
for j:=0 to m.lines.count-1 do begin
  if length(m.lines.strings[j])>maxl then maxl:=length(m.lines.strings[j]);
end;

i:=0;
for k:=to maxl downto 1 begin
  for j:=i to m.lines.count-1 do begin
    if (length(m.lines.strings[j])=l) and (i<>j) then begin
      m.lines.exchange(i,j);
      i:=i+1;
    end;
  end;
end;

[denis76560]

Сообщение от evg_m

maxl:=0;
for j:=0 to m.lines.count-1 do begin
  if length(m.lines.strings[j])>maxl then maxl:=length(m.lines.strings[j]);
end;

i:=0;
for k:=to maxl downto 1 begin
  for j:=i to m.lines.count-1 do begin
    if (length(m.lines.strings[j])=l) and (i<>j) then begin
      m.lines.exchange(i,j);
      i:=i+1;
    end;
  end;
end;

увы,ваш код не заработал
с поправками
memo6.Lines.BeginUpdate;
А после циклов строчку
memo6.Lines.EndUpdate;
работает также долго

[denis76560]

с задачей хорошо справился код от Serge_Bliznykov