Início
por [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.
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);
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.
Posts