Перебор строк из Memo

[TSu]

Здравствуйте. Подскажите как сделать перебор строк из memo и сравнивать со стракой в Edit.
Строка1+Строка2
Строка1+Строка3
Строка2+Строка1
Строка3+СтрокаN
...
Строка1+Строка2+Строка3+Строка4+Стр окаN
Строка1+Строка3+Строка2+Строка4+Стр окаN
Строка1+Строка4+Строка2+Строка3+Стр окаN

т.е порядок строк должен пройти все комбинации

[Человек_Борща]

Цикл For и оператор сравнения = .

[TSu]

Не правильно написал, сейчас поправлю тему...

[Serge_Bliznykov]

вот код перебора N вариантов из N строк

на форму кидайте два мемо (Memo1 и memoResult и кнопку)
ну и такой код:

unit Unit5;

interface

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

type
  TForm5 = class(TForm)
    Memo1: TMemo;
    memoResult: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Show_Slova(const SS : string);
    procedure ShowVariant(S0,S1 : string);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form5: TForm5;

implementation

{$R *.dfm}

var S:string;

procedure TForm5.Show_Slova(const SS : string);
var j: integer;
  SResult : string;
begin
  SResult := '';
  for j:=1 to Length(SS) do SResult := SResult + Memo1.Lines[ord(SS[j])-1] + ' ';
  memoResult.Lines.Append(SResult);
end;

procedure TForm5.ShowVariant(S0,S1 : string);
var I : integer;
begin
  if length(S1)=1 then begin Show_Slova(S0+S1); Exit end;
  for i:=1 to length(S1) do begin
     ShowVariant(S0+S1[i],copy(S1,1,I-1)+
                             copy(S1,I+1,length(S1)));
  end;
end;


procedure TForm5.Button1Click(Sender: TObject);
var
  k:integer;
begin
  Memo1.Lines.Clear;
  Memo1.Lines.Append('умный');
  Memo1.Lines.Append('Вася');
  Memo1.Lines.Append('учит');
  Memo1.Lines.Append('уроки');

  memoResult.Lines.Clear;
  memoResult.Lines.Append('----------  Варианты перестановок слов  ------------');
  S := '';
  for k:=1 to Memo1.Lines.Count do S := S + chr(k);
  ShowVariant('',S);
end;

end.

[TSu]

Serge_Bliznykov, спасибо большое, то что надо) ну почти то что надо)
Нет вариантов из 2х строк из 3х и т.д. Как их вывести?

[Serge_Bliznykov]

ну, тогда этот код попробуйте

MemoStringsCombination_Sources.rar

MemoStringsCombination_EXE.rar

примечание.
программа заодно, помимо всех ваших размещений, может выдавать варианты
размещения с повторами M из N
сочетания без повторов M из N
размещения без повторов M из N


p.s. код программы собран из разных источников, к тому же, писался буквально "на коленке", поэтому претензии по некрасивому/нелогичному/неэффективному/лишнему коду не принимаются...

[TSu]

Serge_Bliznykov, ещё раз спасибо