例如你取出了最大值存放在MAXVALUE(string)中,可以做如下处理:var
Max : integer;Max := strtoint(MaxValue) + 1;
MaxValue := inttostr(Max);case length(MaxValue) of
1: MaxValue:='0000' + Maxvalue;
2: MaxValue:='000' + Maxvalue;
3: MaxValue:='00'+Maxvalue;
4: MaxValue:='0'+Maxvalue;
5: MaxValue:=Maxvalue;
end;
edit_djbh.text:=MaxValue;
Max : integer;Max := strtoint(MaxValue) + 1;
MaxValue := inttostr(Max);case length(MaxValue) of
1: MaxValue:='0000' + Maxvalue;
2: MaxValue:='000' + Maxvalue;
3: MaxValue:='00'+Maxvalue;
4: MaxValue:='0'+Maxvalue;
5: MaxValue:=Maxvalue;
end;
edit_djbh.text:=MaxValue;
解决方案 »
- 关于dbgrid的问题
- TeeChar 7 的用法
- 高手们进来帮我看看啊,如何取值的问题.
- DELPHI 操作的小问题
- 帮忙改写彩虹加密狗函数
- 关于delphi中的异常处理
- 怪了!请进来看看
- 在DEPHI MIDAS中使用SockerConnect问题?请帮忙解决....
- 高分,高手请进!真正能使我这个问题解决者给80分,其余20分平分!
- 怎样在多窗体程序中使用全局变量?
- 通过query中的sql实现查询后在dbgrid中显示,然后点击dbgrid某一行怎样实现删除?
- 50分求解installshield 6.22汉化包。我用6.0,6.20的在“添加删除程序”里无法卸载!(或是别的原因吗?)
function tdata1.makefphm(s :string):string;
var s2 : string;
i: integer;
begin
i:=StrToInt(s);
s2:=IntToStr(i+1);
s2:=Copy('0000000',1,7-Length(IntToStr(StrToInt(s)+1)))+s2;
result:=s2;
end;