สงสัยเกี่ยวกับคำสั่งวน loop ครับ

[champ_db]

สงสัยครับ
สมมุตจะเขียนคำสั่งวน loop ครับแบบนี้

procedure GlobalOnCreate;
a : array[1..2] of string;
i : integer;
b : string;

begin
i := 1;
b := '1';
for i := 1 to 2 do
begin
a := b;
b := b + '1';
i := i + 1;
end;

end;

ผลลัพธ์ที่ได้ค่า a[1] := '1'   และ  a[2] := '2'
แล้วนำ a[1],a[2] ไปใช้ประโยชน์ในการทำ report บางอย่าง
แต่ติดตรงที่ว่า มันฟ้อง error ตอนทำ report ตรงบันทัดที่ประกาศตัวแปร array เลยไม่แน่ใจว่าเขียนตรงไหนผิดครับ หรือว่าใน report designer ไม่สามารถประกาศตัวแปร array ได้ แล้วถ้าเป็นงั้นจริง จะมีแนวทางเขียนแบบอื่นยังไงครับ

ช่วยแนะด้วยครับ (มือใหม่ครับ)

[howtodo]

โค๊ด: [Select]

procedure GlobalOnCreate;
var a : TStringList;
   i : integer;
b : string;



begin
i := 1;
b := '1';
for i := 1 to 2 do
begin
a.add(b);
b := b + '1';
i := i + 1;
end;


end;
http://www.delphibasics.co.uk/RTL.asp?Name=TStringList

[udomchok]

555
กลับบ้านมา 4 วัน ไม่ได้ online เลย (ไม่มี net free ให้ใช้)
แหม...เล่น ยm มาถาม เพิ่งจะได้ดู
มีเซียน pascal มาตอบให้แล้ว