[Duvida-Delphi]Como reverter um texto.

[RoNaN_LaSs 0]

Ola galera, eu estou com uma duvida, e assim:

Eu quero reverter um texto Escrito em um edit e que esse texto apareça

revertido em outro edit.

[Vator 11]

Declare a função :

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Result := s2;

end;

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

No Delphos é fácil,não?

Desculpe,não tinha colocado a função,erro meu.

[RoNaN_LaSs 0]

Vator O seu codigo nao deu certo aqui nao. da um erro no ReverseString.

[DragonBoss 9]

Fail... ehueheuhe

 

vator colocou como usar a função, mas não pois a função '-'

 

coloque essa função abaixo do implementation:

function ReverseString(Texto:String):String;

var I,Tam:Integer;

Aux:String;

begin

Tam:=Length(Texto);

Aux:='';

for I:=Tam downto 1 do

Aux:=Aux+Texto;

Result:=Aux;

end;

ae vc pode usar assim em um botao:

 

begin

Edit1.Text := ReverseString(Edit1.Text);

end;

 

ous eja, ele vai mostrar no edit o texto invertido x.x

[RoNaN_LaSs 0]

Dragonboss nao tem um jeito mais simples nao?

[DragonBoss 9]

que eu conheça.. não o.0'

mas, declarar e usar uma simples função como essa... é complicado ? =X

 

'-'

[RoNaN_LaSs 0]

Não, é porque eu me enrolo todo quando se trata de variavel, pois estou procurando uma apostila de pascal e nao sei qual estudar pois tem object pascal, pascal e turbo pascal qual estudo?

[Owner 8]

Variáveis são faceis de mexer.

Vou explicar o código para você entender ^^

Declarar a function [Função] sempre é embaixo de {$R *.dfm}

Agora ao código:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

Explicação: Function significa Função [sempre colocar, se no caso por função], logo após tem ReverseString, este é o nome da função, poderia ser qualquer nome, poderia ser Ronan. E entre os parentes tem (Texto:String):String isto é o tipo da função, ou seja, uma string.

 

Ao resto:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

Explicação: Var significa variaveis, I, Tam:Integer = quer dizer que, I e Tam vão ser Inteiros, somente números. O mesmo com Aux:String = o Aux vai ser uma Strng, ou seja, um texto e etc rs.

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

Explicação: No começo você vê que, a variavel inteiro [Tam] vai ser um comprimento [extensão] da variavel texto da função. O comando de baixo, limpa o que tem na string Aux. Ai embaixo faz assim: para inteiroI := InteiroTam até 1 faça. O Aux recebe ele mesmo + a string texto. E o Resultado é igual Aux

 

Entendeu ?

[RoNaN_LaSs 0]

Owner Obrigado, entendi, duvida respondida, pode fechar o topico

[Owner 8]

Fechado ^^