請教關於迴圈的問題 |
|
尚未結案
|
|
cd109
一般會員   發表：23 回覆：33 積分：11 註冊：2003-12-22 發送簡訊給我 |
|
|
qoo1234
版主  發表：256 回覆：1167 積分：659 註冊：2003-02-24 發送簡訊給我 |
procedure TForm1.Button1Click(Sender: TObject);
var a:array[1..4] of integer;
i:integer;
begin
for i:=1 to 5 do
begin
a[1]:=i;
a[2]:=i*10;
a[3]:=i*100;
a[4]:=i*1000;
Memo1.Lines.Add(intToStr(a[1]) ' '
intToStr(a[2]) ' '
intToStr(a[3]) ' '
intToStr(a[4]) ' '
);
end;
end;
 網海無涯，唯學是岸！
|
|
cd109
一般會員 發表：23 回覆：33 積分：11 註冊：2003-12-22 發送簡訊給我 |
|
|
Chance36
版主 發表：31 回覆：1033 積分：792 註冊：2002-12-31 發送簡訊給我 |
cd109 你好
改成這樣如何?
procedure TForm1.Button1Click(Sender: TObject);
Var
i, j:integer;
L : String ;
begin
for i:=1 to 5 do begin
L := '' ;
For j:=0 to 3 Do Begin
L := L FloatToStr(i*IntPower(10,j)) ' ';
End;
Memo1.Lines.Add(L);
end;
end;
_______________________________________
深藍的魚，祝您好運..........連連
|
發表時間：2004-10-17 12:16:07
IP:163.17.xxx.xxx 未訂閱
系統時間：2024-06-30 13:23:08
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |