SERA QUE FUNCIONA???
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
Curtidas 0
Respostas
Anonymous
11/03/2003
Campo autoincremento não permite edição. :(
GOSTEI 0
Anonymous
11/03/2003
O q. vc poderia fazer é onde o campo autoincremento irá aparecer vc editar o modo de visualização :D
GOSTEI 0