03/11/2005

Validação

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


Zekas

Respostas

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


Responder Citar

03/11/2005

Zekas

Neste caso, necessito que o mesmo seje gravado no banco já alinhado a direita.

Grato

Zekas


Responder Citar