我定义的编号为char型的6位长度,我是这样的 如:后3位全部是000001现在要加一变成000002怎么处理。我进行强制类型转换后相加,在转换回来变成了2,怎么让它变成000002。多谢!
解决方案 »
- 怎样从一个字符串获取某个子串的后面的字符串,且这个子串不在第一位?
- 关于TIdUDPServer在动态库内使用时引起内存非法访问的问题。不解。。。。。。
- 添加了TWebBrowser后,窗体的FormKeyPress失效了。估计把焦点抢走了,怎么办?
- 如何在adodbgrid中隐藏当前行
- 插入报错,急!!!!!!!!!!!在线等!!!
- 奇怪的問題,是delphi的bug嗎?
- 想取TreeView节点编辑后的节点名,为什么老显示改之前的名称?
- 请问有什么控件可以保存表格以及文字,不用excel。
- 这里有用borland的ib server的否?
- 哪位大侠知道如何捕捉该消息?急,在线等待
- 一个函数可以返回多种类型的值吗?
- DELPHI 中的简单问题,关于循环????
var
i:string;
begin
i:='00000';
i:=i+inttostr(你转换回的变量);
result:=i;
end;
FormatFloat('000000', StrToInt(Str)+1);
'000000000000000000'is not a vaild integer value
000000000000000000是我要运算的字符串,是不是长度的问题。
begin
Result := IntToStr(Value);
Result := StringOfChar(FillChar, StrLength - Length(Result)) + Result;
end;
function GetNextNo(CurNo: String): String;
var m_S:String;
const len=6;
begin
m_S:=IntToStr(StrToInt(CurNo)+1);
if length(m_S)<len then
repeat
m_S:='0'+m_S;
until
Length(m_S)>=len;
result:=m_S;
end;
begin
case length(inttostr(i)) of
1: str := '000' + inttostr(i);
2: str := '00' + inttostr(i);
3: str := '0' + inttostr(i);
4: str := inttostr(i);
end;
function setNo(j:integer):string;
var
i:string;
begin
i:='00000000000000000000000';
i:=i+inttostr(j);
result:=i;
end;
i:=i+inttostr(1);这样不是字符串的连接吗?怎么能够相加呢?你真的能够测试通过。我怎么就测试不行呢还是在后面加的。
然后我调用你的函数,可是得出还不是我要的那个结果啊!