Validação
03/11/2005
0
Amigos:
Gostaria de contar com a ajuda de vocês para resolver o seguinte problema:
Tenho um campo definido como caracter que pode ser populado com numeros, alpha ou ambos, devendo os mesmo ficarem alinhados a direita. Fiz a função abaixo.
function TDbFunction.fAlinha(sCampo: String): String;
var
i,tamanho: integer;
aux: string;
begin
aux := trim(sCampo);
tamanho:= length( trim (sCampo));
sCampo:=´´;
for i:= 1 to (7 - tamanho) do
sCampo:= sCampo + ´ ´;
aux:= sCampo + aux;
Result:= aux;
end;
Faço sua chamada atravez do evento OnKeyDown que quando saio do campo com ENTER funciona belezinha, mas quando saio com TAB não funciona (obvio). Fiz tambem a chamada com OnKeyPress, mas tambem não funciona com TAB. Tentei colocar esta chamada no OnValidade do campo, mas dá erro ao validar
Vocês tem alguma sujestão para ajudar-me a resolver o problema?
Grato
Zekas
Gostaria de contar com a ajuda de vocês para resolver o seguinte problema:
Tenho um campo definido como caracter que pode ser populado com numeros, alpha ou ambos, devendo os mesmo ficarem alinhados a direita. Fiz a função abaixo.
function TDbFunction.fAlinha(sCampo: String): String;
var
i,tamanho: integer;
aux: string;
begin
aux := trim(sCampo);
tamanho:= length( trim (sCampo));
sCampo:=´´;
for i:= 1 to (7 - tamanho) do
sCampo:= sCampo + ´ ´;
aux:= sCampo + aux;
Result:= aux;
end;
Faço sua chamada atravez do evento OnKeyDown que quando saio do campo com ENTER funciona belezinha, mas quando saio com TAB não funciona (obvio). Fiz tambem a chamada com OnKeyPress, mas tambem não funciona com TAB. Tentei colocar esta chamada no OnValidade do campo, mas dá erro ao validar
Vocês tem alguma sujestão para ajudar-me a resolver o problema?
Grato
Zekas
Zekas
Curtir tópico
+ 0
Responder
Posts
03/11/2005
Michael
Vc diz um campo de tabela de banco de dados? Se vc estiver usando um campo através da classe TField, há uma propriedade Align que define o alinhamento visual dos dados. Isso não serve para seu caso?
[]´s
[]´s
Responder
03/11/2005
Zekas
Neste caso, necessito que o mesmo seje gravado no banco já alinhado a direita.
Grato
Zekas
Grato
Zekas
Responder
Clique aqui para fazer login e interagir na Comunidade :)