[Resolvido] Tratamento de Campos Texto.

[Pote 0]

Pessoal alguém sabe como trato campos no DELPHI onde só podem ser digitado TEXTO ? Ex: Tenho um campo NOME em um formulário, e um campo DATA. Não posso deixar o usuário digitar Numeros em nome e letras em Data. Obs: Uso LABEL E DBEdit.

[ZueRa 0]

Hehe calma aí galera rs

 

bom, vamos lá amigo.

você Pode fazer assim:

 

para que o usuário digite somente letras

 

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
  begin
	if not (key in ['A'..'Z', 'a'..'z']) then
	  begin
		Application.MessageBox('Somente palavras por favor.','titulo',MB_ok +
		MB_defbutton1 + MB_iconexclamation);
		Edit1.Text := '';
		Abort;
	  end
	else
	  begin
	  //outros procedimentos
	  //por exemplo:
	  Showmessage('Correto!');
	  end;
  end;

para apenas números

 

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
  begin
	//if not (key in ['A'..'Z', 'a'..'z']) then
	if not (key in ['0'..'9']) then
	  begin
		Application.MessageBox('Somente números por favor.','titulo',MB_ok +
		MB_defbutton1 + MB_iconexclamation);
		Edit1.Text := '';
		Abort;
	  end
	else
	  begin
	  //outros procedimentos
	  //por exemplo:
	  Showmessage('Correto!');
	  end;
  end;

Ambos como pode ver foram testados no evento OnKeyPress do TEdit.

Adapte a sua utilização.

 

Grande abraço!

[Pote 0]

Hehe calma aí galera rs

 

bom, vamos lá amigo.

você Pode fazer assim:

 

para que o usuário digite somente letras

 

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
  begin
	if not (key in ['A'..'Z', 'a'..'z']) then
	  begin
		Application.MessageBox('Somente palavras por favor.','titulo',MB_ok +
		MB_defbutton1 + MB_iconexclamation);
		Edit1.Text := '';
		Abort;
	  end
	else
	  begin
	  //outros procedimentos
	  //por exemplo:
	  Showmessage('Correto!');
	  end;
  end;

para apenas números

 

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
  begin
	//if not (key in ['A'..'Z', 'a'..'z']) then
	if not (key in ['0'..'9']) then
	  begin
		Application.MessageBox('Somente números por favor.','titulo',MB_ok +
		MB_defbutton1 + MB_iconexclamation);
		Edit1.Text := '';
		Abort;
	  end
	else
	  begin
	  //outros procedimentos
	  //por exemplo:
	  Showmessage('Correto!');
	  end;
  end;

Ambos como pode ver foram testados no evento OnKeyPress do TEdit.

Adapte a sua utilização.

 

Grande abraço!

 

Amigão obrigado aê.Vlw!!