Fórum inverter string #366601
01/12/2008
0
stratual = 000090000102
strconvertida = 020100900000
agradeço a todos vocês.
abração
Paulovitor22
Curtir tópico
+ 0Posts
01/12/2008
Wdrocha
Procedure InverteString();
Var StringInvertida : string;
I : Integer;
For I := Lengt(SuaString) Downto 1 Do
StringInvertida := StringInvertida + SuaString[I]
Espero ter ajudado..
Qualquer coisa...posta aew...
Flw
Gostei + 0
01/12/2008
Paulovitor22
Procedure InverteString();
Var StringInvertida : string;
I : Integer;
For I := Lengt(SuaString) Downto 1 Do
StringInvertida := StringInvertida + SuaString[I]
amigo desculpe-me solicitar denovo a ajuda, é pq tem o pequeno problema nao é simplesmente inverter... na verdade ele pega de 2 em 2 caracteres e ai sim inverte.
stratual = apaulo
strconvertida = lo au pa
entendeu a diferença ??? coloquei com espaço só para visualizar melhor.
Gostei + 0
01/12/2008
Wdrocha
E acho q vc errou no exemplo...
apaulo..ficaria assim...
lo au PA e vc colocou lo au ap....dessa forma vc estaria apenas invertendo os dois primeiros caracteres e os os outros apenas trocando de posição...
veja se é isto q vc quer..
Coloque dois edits no form e um TButton e o seguinte código
Procedure TForm1.Button1Click(Sender: TObject);
Var I : Integer;
Palavra, Invertida : String;
Begin
Palavra := Edit1.Text;
I := Length(Palavra);
While I > 1 Do
Begin
invertida := Invertida + Palavra[I - 1] + Palavra[I] ;
I := I - 2;
End;
Edit2.Text := Invertida;
End;
o resultado foi...
lo au ap
é isso q vc quer??
qualquer coisa posta d novo....até que consigamos fazer..
blz?
Gostei + 0
01/12/2008
Wdrocha
000090000102 e o resultado foi 020100900000 ....espero q seja isso q vc queria....
Abraços
Gostei + 0
03/12/2008
Paulovitor22
é isso mesmo me deu uma solucao !!!
muito obrigado foi de muita ajuda...
abração
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)