ตัวอย่างการสร้าง property แบบ array ใน delphi

property แบบ array ใน delphi รูปแบบการประกาศตามตัวอย่างต่อไปนี้

simple_class : TObject;
private
....
function GetItem(Index: Integer): TObject;
procedure SetItem(Index: Integer; value : TObject);
....
public
....
property Items[index: Integer]: TObject read GetItem write SetItem;

end;

ตัวอย่างการเรียกใช้

    myObject: TObject;
    simpleObj: simple_class;
    ....
    myObject := simpleObj.Items[0] ;

[ana]

ถ้าบันทึกแต่ละเรื่องมีที่มาที่ไปเสียหน่อยว่า ทำเพื่อแก้ปัญหาอะไร หรือใช้ประโยชน์อย่างไร คนที่ผ่านมาเจอ อ่านก็จะได้เข้าใจด้วยนะครับ ว่า อ๋อเค้าพูดถึงประแจใช้ขันน๊อต

บังเอิญด้ามสั้นบิดไม่ถนัดมือ เลยต่อด้ามให้ยาวขึ้นเพื่อใช้เท้ายันช่วยได้ คนนอกวงการจบพานิชย์มาไม่รู้จักประแจ แต่อ่านแล้วเขาก็เข้าใจ นะครับ แล้วบันทึกที่เราเขียนไว้ก็เกิดประโยชน์กับผู้อ่านมากขึ้น ดีมั้ยครับ

[John]

ขอบคุณครับที่แนะนำมาครับ ไว้จะนำไปแก้ไขนะครับ แต่ขอชี้แจ้งที่มาที่ไปของ Blog นี้นิดนึงครับ ที่ผมเริ่มบันทึก blog เพื่อกันลืมครับ แล้วเห็นว่าข้อมูลที่เป็นภาษาไทยน้อยมากก็เลยเปิดบันทึกนี้ให้คนทั่วไปที่มีปัญหาเหมือนผม จะได้ไม่เสียเวลามาค้นคว้าใหม่ครับ ดังนั้นถ้าจะเข้ามาเพื่อหาพื้นฐาน OOP หรือ Delphi ก็ไม่ใช้จุดประสงค์ของ Blog นี้นะครับ

ปล. ตอนนี้ผมเลิกเขียน Delphi แล้วครับ ^^! เพราะว่าในความคิดผมเริ่มหมดยุคของ Delphi แล้วครับ หันไป Java หรือ .Net แทนครับ เครื่องมือที่เตรียมให้ หรือ ชุมชนนักพัฒนาก็มีเยอะกว่าด้วยครับ