SERA QUE FUNCIONA???
11/03/2003
0
Peguei uma função que adiciona 0 a esquerda de qualquer numero. Gostaria de Saber se essa função funciona para Campos AutoIncremento. Se Alguem puder me ajudar eu agradeço!
Abraços
[b:22ea8431bf]function ZeroEsquerda(const I: integer; const Casas: byte): string;
var Ch: Char;
begin
Result := IntToStr(I);
if Length(Result) > Casas then
begin
Ch := ´*´;
Result := ´´;
end
else
Ch := ´0´;
while Length(Result) < Casas do
Result := Ch + Result;
end;
[/b:22ea8431bf]
Abraços
[b:22ea8431bf]function ZeroEsquerda(const I: integer; const Casas: byte): string;
var Ch: Char;
begin
Result := IntToStr(I);
if Length(Result) > Casas then
begin
Ch := ´*´;
Result := ´´;
end
else
Ch := ´0´;
while Length(Result) < Casas do
Result := Ch + Result;
end;
[/b:22ea8431bf]
Thales
Curtir tópico
+ 0
Responder
Posts
11/03/2003
Anonymous
O q. vc poderia fazer é onde o campo autoincremento irá aparecer vc editar o modo de visualização :D
Responder
Clique aqui para fazer login e interagir na Comunidade :)