Fórum Subsequencia em Delphi #509412

pROGRAM LE;

uses crt;

VAR
   j,I:INTEGER;
   avanca,seq:string;
   aux:string[1];
begin
   writeln('Digite abaixo a sequencia para trocar');
   read(seq);
for i:= 1 to length(seq) do
    begin
    if seq[i] <> ',' then
    avanca:=avanca + seq[i]
    end;
for i:=1 to length(avanca) do
begin
for j:=i+1 to length(avanca) do
    begin
    aux[0]:=avanca[i];
    avanca[i]:=avanca[j];
    avanca[j]:=aux[0];
    writeln(avanca);
    end;
end; 
readkey;
end.

procedure TForm1.btnCalcularPermutaClick(Sender: TObject);
var
  caracterSelecionado: string;
  stringSemCaracterSelecionado: string;
  prefixo, sufixo: string;
  I: Integer;
begin
  caracterSelecionado := Copy(edtSequencia.Text, 1, 1);
  stringSemCaracterSelecionado := Copy(edtSequencia.Text, 2,
    length(edtSequencia.Text));

  for I := 0 to Length(stringSemCaracterSelecionado) do
  begin
    prefixo := Copy(stringSemCaracterSelecionado,0,I);
    sufixo := Copy(stringSemCaracterSelecionado,I+1, length(stringSemCaracterSelecionado));

    lstPermutacao.Items.Add(prefixo + caracterSelecionado + sufixo);
  end;
end;

procedure TForm1.calcularNumeros(numeros: string);
var
  tamanho, J, I: Integer;
  substring: string;

  sequencia: Boolean;
begin
  tamanho := length(numeros);
  for I := tamanho downto 3 do
  begin
    for J := 0 to I - 1 do
    begin
      substring := Copy(numeros, 0, I);
      substring := Copy(substring, 0, J) + Copy(substring, J + 2,
        length(substring));

      verificaSeNumeroEntraNaLista(substring);

      if length(substring) >= 3 then
        calcularNumeros(substring);
    end;
  end;
end;

procedure TForm1.verificaSeNumeroEntraNaLista(substring: string);
var
  numeroAtual, numeroAnterior, I: Integer;
begin
  numeroAnterior := StrToInt(Copy(substring, 1, 1));
  for I := 2 to length(substring) do
  begin
    numeroAtual := StrToInt(Copy(substring, I, 1));
    if numeroAnterior + 1 <> numeroAtual then
    begin
      if lstSubSequenciaNaoContinua.Items.IndexOf(substring) < 0 then
        lstSubSequenciaNaoContinua.Items.Add(substring);
      Break;
    end
    else
      numeroAnterior := numeroAtual;
  end;
end;

procedure TForm1.btnCalcularSubSequenciaNaoContinuaClick(Sender: TObject);
begin
  calcularNumeros(edtSequencia.Text);
end;

procedure TForm1.permutar(posicao: integer);
var
  I: integer;
  prefixo, sufixo, novaString: string;
  caracterSelecionado, stringSemCaracterSelecionado: string;
begin
  caracterSelecionado := Copy(edtSequencia.Text, posicao, 1);

  stringSemCaracterSelecionado := Copy(edtSequencia.Text, 1, posicao - 1) +
    Copy(edtSequencia.Text, posicao + 1, Length(edtSequencia.Text));

  for I := 0 to Length(stringSemCaracterSelecionado) do
  begin
    prefixo := Copy(stringSemCaracterSelecionado, 0, I);
    sufixo := Copy(stringSemCaracterSelecionado, I + 1,
      Length(stringSemCaracterSelecionado));
    novaString := prefixo + caracterSelecionado + sufixo;
    if lstPermutacao.Items.IndexOf(novaString) < 0 then
      lstPermutacao.Items.Add(novaString);
  end;
end;

procedure TForm1.btnCalcularPermutaClick(Sender: TObject);
var
  I: integer;
begin
  for I := 1 to Length(edtSequencia.Text) do
    permutar(I);
end;