代码如下:
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, StdCtrls;const
MaxDataDD=10;
AryDataDD:array[0..MaxDataDD] of Integer=(1,2,3,4,5,6,7,8,9,10,11);
type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
N11: TMenuItem;
N12: TMenuItem;
Button1: TButton;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
var
i:Integer;
sTmp:String;
begin
for i:=0 to MaxDataDD do
begin
sTmp:=sTmp+IntToStr(AryDataDD[i]);// a
end;
ShowMessage(sTmp);
end;end.在a点打断点进行调试时发现i是从大往小走的 但是这样的结果又是对的
结果 sTmp = '1234567891011'很有意思 不知道是否是跟delphi对静态数组的存贮有关
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, StdCtrls;const
MaxDataDD=10;
AryDataDD:array[0..MaxDataDD] of Integer=(1,2,3,4,5,6,7,8,9,10,11);
type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
N11: TMenuItem;
N12: TMenuItem;
Button1: TButton;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
var
i:Integer;
sTmp:String;
begin
for i:=0 to MaxDataDD do
begin
sTmp:=sTmp+IntToStr(AryDataDD[i]);// a
end;
ShowMessage(sTmp);
end;end.在a点打断点进行调试时发现i是从大往小走的 但是这样的结果又是对的
结果 sTmp = '1234567891011'很有意思 不知道是否是跟delphi对静态数组的存贮有关
解决方案 »
- 关于窗口登录的问题 新手提问 有劳各位
- 使用FastReport打印,总是报错Variant array index out of bounds
- Delphi 通过ADO 连接sybase12.0 关于事务的问题
- RichEidt保存乱码
- 关于ReportBuilder 的示例?
- 关于数据库的问题!
- 求一个遍历树的叶子的算法 delphi实现
- 高分请教一个问题,如果只使用ADO+DBGrid,没有用TTable, TQuery, 还需要BDE的支持吗?
- 请问如何将如何将IE的Internet选项中设置主页一项变成不可选.
- 我的MIDAS程序,本机可以,客户程序拷到另外机器上就不行了! 我爱你们!
- 师傅要为人父了,特此散分 祝他BABY跟我一样做个偷懒的聪明人 HOHO~
- DELPHI如何支持俄语?
倒叙循环的话编译成机器码代码更精炼,不用比较寄存器和0的关系.反编译一下就知道了.
VC在Release版的时候也是倒叙的.