Fórum Caractere Por Caractere De uma String #373660
17/08/2009
0
Galera gostaria ler caractere por caractere de uma string e por em um array
ex: a := ´CELULAR´;
b[1] := C;
b[2] := E;
b[3] := L;
b[4] := U;
b[5] := L;
b[6] := A;
b[7] := R;
e possível?? abraço!
ex: a := ´CELULAR´;
b[1] := C;
b[2] := E;
b[3] := L;
b[4] := U;
b[5] := L;
b[6] := A;
b[7] := R;
e possível?? abraço!
Ipeixoto
Curtir tópico
+ 0
Responder
Posts
17/08/2009
Guinther
Uma string é um array de char, então é perfeitamente possível acessar cada posição pelo índice, para ler ou atribuir. Um exemplo:
procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
i: integer;
begin
s := ´CELULAR´;
for i := 1 to length(s) do
ListBox1.Items.Add(s[i]);
end;
Att,
Guinther Pauli
Editor Geral Revista ClubeDelphi
http://guintherpauli.blospot.com
http://twitter.com/guintherpauli
procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
i: integer;
begin
s := ´CELULAR´;
for i := 1 to length(s) do
ListBox1.Items.Add(s[i]);
end;
Att,
Guinther Pauli
Editor Geral Revista ClubeDelphi
http://guintherpauli.blospot.com
http://twitter.com/guintherpauli
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)