Последние записи

made in programmersforum 1

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

10th
Сен

Как сделать перебор строк из memo и сравнивать со стракой в Edit

Posted by Chas under Delphi

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,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.