inverter string

Delphi

01/12/2008

Galera queria ajuda de vocês, preciso inverter uma string segue exemplo abaixo:

stratual = 000090000102
strconvertida = 020100900000

agradeço a todos vocês.

abração


Paulovitor22

Paulovitor22

Curtidas 0

Respostas

Wdrocha

Wdrocha

01/12/2008

Boa tarde...segue o exemplo


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
Paulovitor22

Paulovitor22

01/12/2008

Boa tarde...segue o exemplo 
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



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
Wdrocha

Wdrocha

01/12/2008

Fiz aq um exemplo...

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
Wdrocha

Wdrocha

01/12/2008

Fiz um teste com seu outro exemplo...

000090000102 e o resultado foi 020100900000 ....espero q seja isso q vc queria....

Abraços


GOSTEI 0
Paulovitor22

Paulovitor22

01/12/2008

Fiz um teste com seu outro exemplo... 000090000102 e o resultado foi 020100900000 ....espero q seja isso q vc queria.... Abraços


é isso mesmo me deu uma solucao !!!

muito obrigado foi de muita ajuda...

abração


GOSTEI 0
POSTAR