Preenchimento De Campos Em Um Db?

[Guest RafaX]

Amigos,

Sou iniciante em Delphi, e gostaria d saber c tem geito, e c tiver como fazer que um campo tipo String d um DB em Paradox de tamanho 18 ser preenchido totalmente,

como exemplo, tenho um campo codigo, com o tamanho maximo 10 , na hora d preencher o campo, c por exemplo fosse digitado 1, gostaria que fosse preenchido com 0 até o limite do campo, armazenando o valor 0000000001.

Valeu...

[Turbo]

cara, antes de cadastrar no BD, você faz o teste, calcula a qte d caracteres e verifica c é menor do q 10 c for preenche com 0 até chegar a 10...

um conselho usa vetor, q deve ficar mais fácil d programar isso.

[piradox]

Cria uma função, que conta os caracteres. Aí vai um exemplo

function FormatNumber(InitialNumber:string;NumberOfCharacters:integer;DefaultNumber:string):string;

var i:integer;

begin

showmessage(inttostr(Length(InitialNumber)));

for i:= Length(InitialNumber) to NumberOfCharacters do

begin

InitialNumber := DefaultNumber + InitialNumber;

end;

Result := InitialNumber;

end;

(O código tava identado mas num sei porque sumiu!)