Fórum Següencia de caracters #183543

Fazer sequência de caracteres é muiot fácil. Agora, fala o que realmente você tem que fazer, só assim tem como te ajudar.

Quero entrar com uma següencia de numeros da seguinte forma: aaa ai ele gera a seguinte secuencia: aab,aac,aada assim concecutivamente.
obg.

Pelo jeito você está querendo fazer uma combinação, se for isso leia sobre análise combinatória, que vai te dar uma base legal sobre isso. Se não for isso se explique melhor, aab, aac, aada, de onde que você tirou o [b:6cbdf93937]b[/b:6cbdf93937] o [b:6cbdf93937]c [/b:6cbdf93937]e [b:6cbdf93937]da[/b:6cbdf93937]. Talvez seja uma coisa simples, mas não estou conseguindo entender.

Quando precionar o botão play o progama ira gerar uma secüencia dos caracteres contidos na tela. EX: se digitar ´aaa´ quero que o aplicativo gere a secuencia: aab,aac,aad,aae,aaf,aag...e quando ele chegar na ultima letra ´z´. ele começa a mudar a segunda coluna

Vamos tentar isso;

[b:fe74af88ee]Esse é o codigo fonte de um Teste que fiz[/b:fe74af88ee]

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Memo1: TMemo;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
cancela:boolean;//

implementation

{$R *.DFM}

procedure TForm1.SpeedButton2Click(Sender: TObject);
var
a,b,c:char;
begin
cancela:=false;
memo1.Lines.clear;
for a:=´a´ to ´z´ do
begin
for b:=´a´ to ´z´ do
begin
for c:=´a´ to ´z´ do
begin
application.ProcessMessages;
if not cancela then
memo1.lines.add(a+b+c)//apenas mostra em um Memo
else
exit;
end;
end;
end;
end;
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
cancela:=true;
application.ProcessMessages;
end;

end.

se nao for isso por favor me avise.
Um Abraço.
Gean Carlos

os botões ñ aparecem,