[rgstuamigo]

Empezado por Lutmak

gracias por las respuestas jeje la verdad veo que me falta mucho para llegar a hacer esas funciones en delhpi pero no es imposible..
ecfisa gracias por lo del edit pero no entiendo esta parte:

(Key in [#8,'.','0'..'9'])

jeje practicamente es toda la funcion pero si me sirvio gracias....

y pues disculpen mi ignorancia pero donde esta o como se usa "unit DateUtils" se que tal vez la vean como una pregunta tonta pero pues nadie nacio sabiendo recuerden que pues soy nuevo en delhpi
muchas gracias por las respuestas

Basicamente la instrucion

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

lo que hace es preguntar si la tecla pulsada NO ES un número del cero(0) al nueve(9) , ni tampoco la tecla de "Retroceso"(en ASCII 8),ni tampoco es el caracter "punto"(.), pues lo que hace a continucion>

Código Delphi [-]
begin    
    Beep;//<--Emite in pitido 
    Key:= #0;//<--Hace que la tecla sea nula o mejor dicho le asigna el caracter Ascci Cero(0)
end;

.
En cuanto a usar la Unidad DateUtils, pues cencillamente debes colocarla o añadirla(separada con una coma (,) ) en la seccion Uses de la unidad actual donde estas trabajando o la estas necesitantado, algo asi:

Código Delphi [-]
interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,DateUtils;//<--

.
Saludos...