Função para colocar ponto quot;.quot; a direita

Delphi

30/07/2004

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

Misael

Curtidas 0

Respostas

Tnaires

Tnaires

30/07/2004

Olá
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


GOSTEI 0
Misael

Misael

30/07/2004

Deu certo naum!!!! :oops:


GOSTEI 0
Sandra

Sandra

30/07/2004

Misael,

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


GOSTEI 0
POSTAR