chechy(chechy):我说的整型是长整型呀
解决方案 »
- delphi 2009 Idftplist 问题
- delphi中怎样判断文本框中输入的是双引号
- 存储过程 超时过期问题
- BDE or ADO or dbExpress
- 请问有没有得到一个控件的父类类名的方法?
- 请问ClientDataSet怎样清除数据,包括字段
- 我想问一个作图的问题,横坐标是时间(ms),纵坐标是一个指标。
- 开发一个移动短信网关模拟器,需要多少钱,
- 呵呵,这个论坛哪里可以修改个人信息啊?
- 有没有那位大侠知道怎样在自己的窗体中创建任务栏?(appbar)
- 请教各位大侠,哪里有《Microsoft help workshop》的使用说明(无内容)
- 请教高手TDataSource的问题?????????????????????????????????
只有int64才是64位。
var
x,y,i,j,w:integer;
z:array of integer;
s:string;
begin
memo1.Clear;
s:='';
x:=length(edit1.text);
y:=length(edit2.text);if y>x then
begin
setlength(z,y-x);
for i:=0 to (y-x-1) do
begin
z[i]:=0;
next;
end;
w:=strtoint(edit1.text);
for j:=0 to (strtoint(edit2.text)-strtoint(edit1.text)) do
begin
for i:=0 to (y-length(inttostr(w))-1) do
begin
s:=s+inttostr(z[i]);
end;
s:=s+inttostr(w)+' ';
w:=w+1;
next;
end;
memo1.lines.Add(s)
end;
end;
我用一下:
memo1.Clear;
try
a:=strtoint(edit1.Text);
for i:=0 to a do
begin
s:=s+inttostr(i)+' '; end;
memo1.Lines.Add(s);
except
exit;
end;
试了一下,99999五个9,花几秒出来,所以我想这个问题之所以很少人回答,就是大家应该多明白这个的道理的了,只是我还是低手,呵呵!!!!!还来调试吧!!以后这个问题要自己解决呀,多想想,不过我也不确定我现在说得对,我是低手,嘿嘿!!!!