Fórum Função para colocar ponto quot;.quot; a direita #245198
30/07/2004
0
Como fazer uma função para que após ter preenchido um campo dbedit.txt a direita desta informação encher de ponto ´ . ´ até o final do campo ..... exemplo: ´Misael.............´
Misael
Curtir tópico
+ 0
Responder
Posts
30/07/2004
Tnaires
Olá
Testa aí...
Abraços
procedure EncherDePonto(Campo: TField)
var i: integer;
begin
for i := Length(Campo.AsString) to Campo.Size do
Campo.AsString[i] := Campo.AsString + ´.´;
end;Testa aí...
Abraços
Responder
Gostei + 0
30/07/2004
Misael
Deu certo naum!!!! :oops:
Responder
Gostei + 0
30/07/2004
Sandra
Misael,
Tenta assim:
Boa sorte! :D
Tenta assim:
Var
Tam: Integer;
begin
Tam := length(Edit1.Text);
While Tam < 15 do begin
Edit1.Text := Edit1.Text + ´.´;
Inc(Tam)
end;
end;Boa sorte! :D
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)