Crear un mask Edit, y validar el Campo !!

[jmedina]

Buen dia foristas:

Necesito un poco o mucho de su ayuda

Tendo un DBEdit para poner el numero de presupuesto el cual debe de quedar asi 0001/2005 este a su ves quiero que cuando el usuario lo teclee me de esa estructura y si no la tiene validarlo, o bien llenarlo de ceros a la izquierda es decir

10 /2005 -----> 0010/2005

tambien validar que no se quede vacio este campo, y que no existe en la tabla que almacena esos datos, alguien me puede dar una manita para solucionar esta bronquilla que tengo

Manejo delphi 5.0 y Paradox
Tengo IDCodigo Con llave primaria incremental
IDCodigoCot Como llave

Espero no estar mal en la definicion de mi llaves


Saludos

Gracias

Jmedina

[marcoszorrilla]

Pues lo mejor es que el número de presupuesto se rellene automáticamente, por ejemplo tomando el último valor de una tabla auxiliar, a la hora de grabar.

Para ese formato que quieres puedes utilizar FormatFloat.

cNumero:=FormatFloat('0000',Mi_Ultimo_Numero + 1);

Un Saludo.

[jmedina]

si esoes correcto marcos, lo que pasa es que asi estaba, pero despues dijeron queno que se iba a capturar sin dar un numero consecutivo, algunas veces si se dara el caso pero otras, no, como crees que le pueda hacer, mi tipo de dato es String, y la nomenglatura es 0000/2005


Gracias saludos

[marcoszorrilla]

Si /2005 es fijo eso lo puedes añadir tú directamente, entonces lo que necesitas es un edit con ancho permitido 4, que solamente te permite introducir números, en el evento on exit, le añades ceros por la izquierda y listo.
[delphi]
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in [#8,'0'..'9']) then key:=#0;
end;
[/Delpi]


Un Saludo.