Loop do comando Copy

[Visitante]

🙂 Bom Dia

 

Se copio cada caractere individualmente do edit e dando uma quebra de linha com #13#10, uso um código como esse, só que dependendo do programa fica muito cheio de variveis

procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c,d,e:string;

begin

a:=copy(Edit1.Text,1,1)+ #13#10;
b:=copy(Edit1.Text,2,1)+ #13#10;
c:=copy(Edit1.Text,3,1)+ #13#10;
d:=copy(Edit1.Text,4,1)+ #13#10;
e:=copy(Edit1.Text,5,1)+ #13#10;

memo1.Lines.Add(concat (a + B + C + d ));

end;

 

Não teria um jeito mais simples de se fazer mesmo enxugando o código acima usando um laço for, while ou de outra maneira, para usar apenas uma variável?

tipo assim:

procedure TForm1.Button1Click(Sender: TObject);
var
a:string;
i:integer ;
begin

for i:=1 to Length(Edit1.text) do
a:=(copy(Edit1.Text,i,1)+ #13#10);

memo1.Lines.Add(a + IntToStr(i));

end;

 

[Visitante]

Olá pessoal, pra que tiver precisando esse código pode ajudar

 

program teste;
var
  vetor :Array of String;
  n,i : integer;
  texto : string;
begin
 texto :=Edit1.Text;
 n := length(texto);

 SetLength(vetor,n); // seta o valor máximo do array.

 for i:=1 to high(vetor) do
 begin
   vetor := copy(texto,i,1)+ #13#10;
 end;

 //Array para impressão
 for i:=1 to high(vetor) do
 begin
    memo1.Lines.Add(a);
    // write(vetor);
    // Showmessage(vetor);
 end

end.