Validar numeros y letras en un Edit?

[gonza_619]

bien ahora el problema es cuando por ejemplo, en un edit ingreso una calle llamada= '3 de febrero'
en este caso solo debo validar para q se ingrese numeros y letras y no otra cosa como ',' o '$' y demas, intente con

Código Delphi [-]
 if not(Key in ['0'..'9',#8],['a'..'z','ñ','A'..'Z','Ñ',#32,#8]) then
 begin
 key := #0;
   beep;
end;

que dicen, estaria en lo correcto?

[ecfisa]

Hola gonza.

Debería ser:

Código Delphi [-]
procedure TForm1.EditKeyPress(Sender: TObject; var Key: Char);
begin
  if not(Upcase(Key) in[#8,'0'..'9','A'..'Z','Ñ','ñ']) then
  begin
    Key:= #0;
    MessageBeep(MB_ICONERROR);
  end;
end;

Y para prevenir posibles ingresos erroneos mediante copiado/pegado:

Código Delphi [-]
procedure TForm1.EditExit(Sender: TObject);
var
  i: Integer;
begin
  for i:= 1 to Length((Sender as TEdit).Text) do
   if not(Upcase((Sender as TEdit).Text[i]) in [#8,'0'..'9','A'..'Z','Ñ','ñ']) then
   begin
     MessageBeep(MB_ICONERROR);
     (Sender as TEdit).SetFocus;
   end;
end;

Saludos.

[gonza_619]

bien , el problema es que no me deja poner un espacio, pitido de error me tira, no se como validar el espacio, gracias

[ecfisa]

Empezado por gonza_619

bien , el problema es que no me deja poner un espacio, pitido de error me tira, no se como validar el espacio, gracias

Hola.

Código Delphi [-]
   if not (Upcase(Key) in [#8,' ',...

Saludos.