edit的累加有关问题，帮帮忙，用

2012-10-23

edit的累加问题，帮帮忙，急用比如edit1.text:XXXXX,它需要累加1共N次，每次累加后的数据能通过dbedit传输到

edit的累加问题，帮帮忙，急用
比如edit1.text:=XXXXX,它需要累加1共N次，每次累加后的数据能通过dbedit传输到数据库，求高手帮我写一小段代码提醒一下 ,请各位高手帮帮忙，急需

[解决办法]

Delphi(Pascal) code

procedure TForm1.Button1Click(Sender: TObject);var  i: Integer;  temp:string;begin  i := 1;  temp := edit1.text;  while i <= strtoint(Edit2.text)+1 do  begin    temp := LeftStr(temp,Length(temp)-Length(IntToStr(i)));    temp := temp + IntToStr(i);    edit1.text:=temp;    Inc(i);  end;end;
[解决办法]
uses strutils;

Delphi(Pascal) codeprocedure TForm1.Button1Click(Sender: TObject);const xStr='100000000'; {9位，亿级数据了，够长了吧}var  i,n,xLength,xMaxStr,xCurrent:Integer;begin  xCurrent:=StrToInt(Edit1.Text);{输入的值,如果长度长于xStr,则改变xStr，在其后面加0就行了}  xLength:=Length(Edit1.Text);  n:=50;{这里改变你要累加的次数}  xMaxStr:=StrToInt(Copy(xStr,1,xLength+1));  for i:=1 to n do     Memo1.Lines.Add(RightStr(IntToStr(xMaxStr+xCurrent+i),xLength));{memo中看结果}end;

热点排行

.NET

edit的累加有关问题，帮帮忙，用