[Tutorial] Avaliando texto de 2 edits [DELPHI]

[~ Heatlex. 11]

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,

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.

 

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

 

Adicionei um xpmanifest 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:

 

 

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;

 

Aperte F9 e compile, escreva algo no edit1 e outra coisa do edit2 e clique em avaliar !

Ele ira avaliar se esta escrito a mesma coisa !