[Tutorial] Avaliando texto de 2 edits.

[QuIx 0]

[Tutorial]

Avaliando texto de 2 edits.

 

 

Bom dia à todos sou o QuIx e vou estar ensinando um tutorial muito simples mais fundamental para os iniciantes, o tutorial é Avaliando o texto e/ou conteúdo de 2 edits.

 

 

Siga os passos com atenção que é bem simples.

 

 

Primeiro passo.

Inicie o delphi e abra um novo Form e por inquanto não ponha nada, como na imagen 1.0.

Imagen 1.0.

 

 

Na janela Object Inspector vamos mudar o Caption do Form1 para Avaliador.

 

 

Segundo passo.

Agora coloque 1 panel remova seu Caption e depois coloque 2 Edits e remova o texto deles ficando como na foto 1.1.

Imagen 1.1.

 

Agora adicione 2 Buttons e mude o Cation do Button1 para (Avaliar) e do Button2 para (Sair) como na imagen 1.2.

Imagen 1.2.

 

Adicionei um Bevel na parte inferior do programa para dar um toque mais elegante ao programa.

 

 

Terceiro passo.

Clique no botão Avaliar e insira o seguinte código:

procedure TForm1.Button1Click(Sender: TObject);beginif AnsiCompareText(Edit1.Text, Edit2.Text) = 0 thenShowMessage('O texto é igual.')elseShowMessage('O texto é diferente.');end;

Agora clique no botão Sair e coloque o seguinte código:

Close;

Agora aperte Run e veja se funcionou, se não for escrito nada em nem um dos Edits a menssagem O texto é igual ira aparecer pois o conteúdo é igual, caso você escreva algo em uma e não na outra a menssagem O texto é diferente ira aparecer pois o conteúdo não é o mesmo.

 

 

Uma breve explicação do código.

beginif AnsiCompareText(Edit1.Text, Edit2.Text) = 0 thenShowMessage('O texto é igual.')elseShowMessage('O texto é diferente.');end;

Como todos deveriam saber o Begin indica o começo, após isso foi adicionado a função If cuja a tradução é SE e logo após isso foi adicionado o comando pré-programado AnsiCompareText (Essa função ira comparar o texto de alguma coisa, pode ser um Memo, Panel, Button e outros), foi colocado entre parenteses quais partes do programa deveriam ser comparadas. A função do = 0 then é mostrar que se o resultado for igual intão ShowMessage('O texto é igual.'). O Else é SENÃO, (fica claro a função do ELSE nesse programa).

 

Em outras palavras se o texto dos dois for comparado e o texto for igual intão aparecerá a menssagem O texto é igual, Senão aparece a menssagem O texto é diferente

.

 

 

Espero que tenham gostado fiz com boas intenções http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

Se quiserem eu posto o download de um programa mais bonito com essa função.

 

 

Abraços,

QuIx.

[Hugo Slepicka 0]

Realmente muito bem estruturado e didático!!!

 

Mando bem velhinho!!!

 

Continue assim... escrevendo esses tutoriais que você vai além de ensinar... aprender muito!!!

 

Abraço!!!

 

Continue assim que você vai virar fera! http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[marcio.theis 3]

Muito bom... continue assim...

Parabéns... http://forum.imasters.com.br/public/style_emoticons/default/clap.gif http://forum.imasters.com.br/public/style_emoticons/default/clap.gif

[QuIx 0]

Valeu galera, vo continuar postando ;}