BMS-HOSxP Community

HOSxP => Delphi / Pascal => ข้อความที่เริ่มโดย: champ_db ที่ มิถุนายน 05, 2010, 21:45:16 PM

หัวข้อ: สงสัยเกี่ยวกับคำสั่งวน loop ครับ
เริ่มหัวข้อโดย: champ_db ที่ มิถุนายน 05, 2010, 21:45:16 PM

สงสัยครับ
สมมุตจะเขียนคำสั่งวน 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 ได้ แล้วถ้าเป็นงั้นจริง จะมีแนวทางเขียนแบบอื่นยังไงครับ

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

หัวข้อ: Re: สงสัยเกี่ยวกับคำสั่งวน loop ครับ
เริ่มหัวข้อโดย: howtodo ที่ มิถุนายน 05, 2010, 23:55:28 PM

โค๊ด: [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

หัวข้อ: Re: สงสัยเกี่ยวกับคำสั่งวน loop ครับ
เริ่มหัวข้อโดย: udomchok ที่ มิถุนายน 09, 2010, 01:09:51 AM

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