Função para preencher campos(FILLCHAR)

Ricardo Barreto de Araujo

Ricardo Barreto de Araujo Publicado 26/11/2017 


Pessoal,  estou trazendo mais uma função simples, tomara que ajude alguém, vamos para o exemplo:


procedure TfrmMain.btnFillCharClick(Sender: TObject);
var
  aFillChar: Array[1..10] of char;
begin

  Fillchar(aFillChar, 10, '=');

 edtFillChar.text := aFillChar; 

end;


Até a próxima dica.



Voltar ao topo