[code delphi]
implementation
{$R *.dfm}
TYPE
st=array[0..2] of real;
procedure clear(out a:st);
var
i,e:integer;
begin
e:=0;
for i:=0 to high(a) do
begin
i:=i 1; //一运行就提示这里有错误
e:=e 1;
a[i]:=e;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
tm:st;
begin
clear(tm);
showmessage(tm[1]);
end;
end.
[/code]
请大家帮帮忙，谢谢了，我用的是DILPHI7

編輯記錄

在for-loop不能修改控制迴圈的變數
所以請mark 掉 i:=i 1;這行
另外
ShowMessage(tm[1]);
請改成
ShowMessage(FloatToStr(tm[1]));

------
先查HELP
再查GOOGLE
最後才發問

沒人有義務替你解答問題
在標題或文章中標明很急
並不會增加網友回答速度

Developing Tool:
1.Delphi 6
2.Visual Studio 2005
3.Visual Studio 2008
DBMS:
MS-SQL

長官:

變數 i 式迴圈再用的不可直接加、減，你可使用兩種方式替代：

1.以迴圈處理

[code delphi]
procedure clear(out a:st);
var
i,e:integer;
begin
e:=0;
for i:=0 to high(a) do
begin
//i:=i 1; //刪除
e:=e 1;
if (i 1<2) then a[i 1]:=e;
end;
end;
[/code]

2.用 While 指令

[code delphi]
procedure clear(out a:st);
var
i,e:integer;
begin
e:=0;
i:=0;
while i < high(a) do
begin
i:=i 1;
e:=e 1;
a[i]:=e;
end;
end;
[/code]


===================引 用 8023 文 章===================

[code delphi]
implementation
{$R *.dfm}
TYPE
st=array[0..2] of real;
procedure clear(out a:st);
var
i,e:integer;
begin
e:=0;
for i:=0 to high(a) do
begin
i:=i 1; //一运行就提示这里有错误
e:=e 1;
a[i]:=e;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
tm:st;
begin
clear(tm);
showmessage(tm[1]);
end;
end.
[/code]
请大家帮帮忙，谢谢了，我用的是DILPHI7