!!! --gt; Autoinc atravez de campo string

Question

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

Anonymous · Answer

Use a fun��o abaixo:function AutoIncrementoString(Valor:String):String;begin   Result := Format(�000�,StrToInt(Valor)+1);end;...

Anonymous · Answer

[quote:4cf537b1c9=�jvg�]Use a fun��o abaixo:function AutoIncrementoString(Valor:String):String;begin   Result := Format(�000�,StrToInt(Valor)+1);end;[/quote:4cf537b1c9]Da erro amigo..[]�s...

Anonymous · Answer

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;

Adilsond · Answer

function AutoIncrementoString(Valor:String):String; begin Result := Format(��.3d�,[StrToInt(Valor)+1]); end;...

F�rum !!! --gt; Autoinc atravez de campo string #154033