[Tutorial]Avaliando texto de 2 edits

Ir em baixo

Tutorial [Tutorial]Avaliando texto de 2 edits

Mensagem por Psy em Sab Nov 10, 2012 9:29 pm


[Tutorial]Avaliando texto de 2 edits
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.

Imagem postada

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.

Imagem postada

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.

Imagem postada

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);
begin
if AnsiCompareText(Edit1.Text, Edit2.Text) = 0 then
ShowMessage('O texto é igual.')
else
ShowMessage('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.

begin
if AnsiCompareText(Edit1.Text, Edit2.Text) = 0 then
ShowMessage('O texto é igual.')
else
ShowMessage('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 [b]O texto é diferente
.





avatar
Psy
Administrador
Administrador

Posts Posts : 35
Localização : Em frente do PC

Voltar ao Topo Ir em baixo

Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum