Tratar campos DELPHI.

[Pote]

Olá alguém pode me da uma força, é o seguinte preciso tratar dois tipos de campos, O campo NOME impedindo que o usuário digite número, e o campo DATA impedindo que ele digite texto. Isso usando DBEdit. Valeu!!

[ZueRa]

Bom dia, 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!

Editado Abril 3, 2009 por ZueRa