!!! --gt; Autoinc atravez de campo string
Como eu crio um codigo autoinc no campo string? tipo:
001, 002, 003 etc..
Quando apertar o botao ele gere esse tipo de codigo
PS: lembrando q o campo eh alfanumerico (string)
se possivel postem o codigo aki.. agradeço!
[]´s
001, 002, 003 etc..
Quando apertar o botao ele gere esse tipo de codigo
PS: lembrando q o campo eh alfanumerico (string)
se possivel postem o codigo aki.. agradeço!
[]´s
Anonymous
Curtidas 0
Respostas
Anonymous
10/04/2003
Use a função abaixo:
function AutoIncrementoString(Valor:String):String;
begin
Result := Format(´000´,StrToInt(Valor)+1);
end;
function AutoIncrementoString(Valor:String):String;
begin
Result := Format(´000´,StrToInt(Valor)+1);
end;
GOSTEI 0
Anonymous
10/04/2003
Use a função abaixo:
function AutoIncrementoString(Valor:String):String;
begin
Result := Format(´000´,StrToInt(Valor)+1);
end;
Da erro amigo..
[]´s
GOSTEI 0
Anonymous
10/04/2003
Desculpe, troque a função format por formatFloat, cfe abaixo:
function AutoIncrementoString(Valor:String):String;
begin
[b:ae6ddce758]Result := FormatFloat(´000´,StrToInt(Valor)+1);[/b:ae6ddce758]
end;
function AutoIncrementoString(Valor:String):String;
begin
[b:ae6ddce758]Result := FormatFloat(´000´,StrToInt(Valor)+1);[/b:ae6ddce758]
end;
GOSTEI 0
Adilsond
10/04/2003
function AutoIncrementoString(Valor:String):String;
begin
Result := Format(´¬.3d´,[StrToInt(Valor)+1]);
end;
begin
Result := Format(´¬.3d´,[StrToInt(Valor)+1]);
end;
GOSTEI 0