我有个edit,我想让他自动产生数据为SP+日期+0001的数据,形如SG-2006-02-18-0001,点击button1后产生了,SG-2006-02-18-0002,再点一下产生SG-2006-02-18-0003,要怎样才能得到这些自动加1的数据?这点不明白,请教各位大虾!
解决方案 »
- 如何用olecontainer如何打开一个word文挡
- 从两个表中汇总后的数据如何生成一个临时表?
- 关于时间计算的问题
- 一个简单的查询语句
- 怎样将6599.99用format变成 6600.谢谢。
- delphi简单问题
- 有没有中专毕业(或者更低)的程序员,进来聊聊!
- 大侠:求助
- 跪求——如何在Delphi中创建一个圆形窗体!我向里面写完代码运行的时候,总是出来Delphi一开始运行的那个FORM1,请问怎么解决呀!!
- 我想学习OBJECT PASCAL语言,请推荐我一本OBJECT PASCAL的好书,电子版的也要!(中文版)
- 如何在一张图片上添加别人看不见的标志,同时在其它的图片编辑器里面编辑后还能保存下来?
- 屏幕截图,为什么截不到鼠标指针(小箭头)?
var s1,s2:string;
begin
s1:=LeftStr(Edit1.Text,length(Edit1.Text)-4);
s2:=RightStr(Edit1.Text,4);
Edit1.Text:=s1+Format('%.4d',[StrToInt(s2)+1]);
end;
var
i: integer;
function MyFormat(i: integer): string;
begin
if i<0 then
Result := '0000'
else if i<10 then
Result := '000' + IntToStr(i)
else if i<100 then
Result := '00' + IntToStr(i)
else if i<1000 then
Result := '0' + IntToStr(i)
else if i<10000 then
Result := IntToStr(i)
else
Result := '9999';
end;
begin
i := StrToInt(Copy(Edit1.Text, Length(Edit1.Text)-3, 4))+1;
Edit1.Text := Copy(Edit1.Text, 1, Length(Edit1.Text)-4) + MyFormat(i);
end;
Project project1.exe raised exception class EConvertError with message ''' is not a valid integer value'.Process stopped.To liangqingzhi(老之) :编译时说不认识leftstr和rightstr.
Project project1.exe raised exception class EConvertError with message ''' is not a valid integer value'.Process stopped.
====
在开头加 uses StrUtils;
Project project1.exe raised exception class EConvertError with message ''' is not a valid integer value'.Process stopped.
procedure TForm1.Button1Click(Sender: TObject);
var
Str : string;
begin
Str := Copy(edit1.Text, Length(edit1.Text) -3, 4);
Str := Format('%.4d', [StrToIntDef(Str, 0) + 1]);
Str := Copy(edit1.Text, 1, Length(edit1.Text) -4) + Str;
edit1.Text := Str;
ShowMessage(Str);
end;
Eidt1.Text:='SG-'+FormatDateTime('yyyy-mm-dd',now)+'-0001'
else
Edit1.Text:=Copy(Edit1.Text,1,Length(Edit1.Text)-4)+Format('%.4d',[StrToInt(Copy(Edit1.Text,Length(Edit1.Text)-3,4))+1]);
procedure TForm1.Button1Click(Sender: TObject);
begin
Inc(n);
Edit1.Text := 'SG-' + FormatDateTime('yyyy-mm-dd-', Date) + FormatFloat('0000', n);
end;