ผู้เขียน หัวข้อ: สงสัยเกี่ยวกับคำสั่งวน loop ครับ  (อ่าน 5588 ครั้ง)

0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

ออฟไลน์ champ_db

  • Full Member
  • ***
  • กระทู้: 180
  • Respect: 0
    • ดูรายละเอียด
สงสัยเกี่ยวกับคำสั่งวน loop ครับ
« เมื่อ: มิถุนายน 05, 2010, 21:45:16 PM »
0
สงสัยครับ
สมมุตจะเขียนคำสั่งวน 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 ได้ แล้วถ้าเป็นงั้นจริง จะมีแนวทางเขียนแบบอื่นยังไงครับ

ช่วยแนะด้วยครับ (มือใหม่ครับ)
หมอแชมป์ (Training state)
อดีตประธาน IT โรงพยาบาลเดิมบางนางบวช จังหวัดสุพรรณบุรี
ขึ้นระบบโดยทีม IT รพ.เดิมบางนางบวช  :  วันอาทิตย์ที่ 23/8/52

http://dbhosp.com/
ขอขอบคุณ ทีมที่ปรึกษา  :  อ.น้าชำนาญ อ.วุฒิ อ.กิจ อ.นาถ อ.อ๊อด

ออฟไลน์ howtodo

  • Hero Member
  • *****
  • กระทู้: 646
  • Respect: 0
    • ดูรายละเอียด
    • สื่อน้ำท่วม
Re: สงสัยเกี่ยวกับคำสั่งวน loop ครับ
« ตอบกลับ #1 เมื่อ: มิถุนายน 05, 2010, 23:55:28 PM »
0
โค๊ด: [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
« แก้ไขครั้งสุดท้าย: มิถุนายน 06, 2010, 00:10:18 AM โดย howtodo »
ขึ้นระบบ 2549  เข้ามารับช่วงต่อ ต.ค.50 - ส.ค.53 ไม่ครบ 3 ปี ขอบคุณสำหรับความรู้ ความเมตตา ความกรุณา ที่มีให้กับตัวข้าผู้ด้อยปัญญาด้วยดีตลอดมา

ออฟไลน์ udomchok

  • Hero Member
  • *****
  • กระทู้: 8,358
  • Respect: +589
    • ดูรายละเอียด
    • ร.พ.สมเด็จพระสังฆราช องค์ที่ 17
Re: สงสัยเกี่ยวกับคำสั่งวน loop ครับ
« ตอบกลับ #2 เมื่อ: มิถุนายน 09, 2010, 01:09:51 AM »
0
555
กลับบ้านมา 4 วัน ไม่ได้ online เลย (ไม่มี net free ให้ใช้)
แหม...เล่น ยm มาถาม เพิ่งจะได้ดู
มีเซียน pascal มาตอบให้แล้ว  ;D ;D ;D ;D
ทำด้วยหัวใจร.พ.สมเด็จพระสังฆราช องค์ที่ 17 อ.สองพี่น้อง จ.สุพรรณบุรี
อบรมโดย BMS Team เมื่อ พ.ย. 49 ขึ้นระบบห้องบัตรเมื่อ X'Mas 2007
2008 : X-Ray กายภาพบำบัด แพทย์แผนไทย กิจกรรมบำบัด OPD ตา
2009 : ทันตกรรม ห้องตรวจตา OPD (พยาบาลและห้องตรวจแพทย์บางห้อง)