Array
(
)

Validação

Zekas
   - 03 nov 2005

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


Michael
   - 03 nov 2005

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


Zekas
   - 03 nov 2005

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

Grato

Zekas