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] ;
ถ้าบันทึกแต่ละเรื่องมีที่มาที่ไปเสียหน่อยว่า ทำเพื่อแก้ปัญหาอะไร หรือใช้ประโยชน์อย่างไร คนที่ผ่านมาเจอ อ่านก็จะได้เข้าใจด้วยนะครับ ว่า อ๋อเค้าพูดถึงประแจใช้ขันน๊อต
บังเอิญด้ามสั้นบิดไม่ถนัดมือ เลยต่อด้ามให้ยาวขึ้นเพื่อใช้เท้ายันช่วยได้ คนนอกวงการจบพานิชย์มาไม่รู้จักประแจ แต่อ่านแล้วเขาก็เข้าใจ นะครับ แล้วบันทึกที่เราเขียนไว้ก็เกิดประโยชน์กับผู้อ่านมากขึ้น ดีมั้ยครับ
ขอบคุณครับที่แนะนำมาครับ ไว้จะนำไปแก้ไขนะครับ แต่ขอชี้แจ้งที่มาที่ไปของ Blog นี้นิดนึงครับ ที่ผมเริ่มบันทึก blog เพื่อกันลืมครับ แล้วเห็นว่าข้อมูลที่เป็นภาษาไทยน้อยมากก็เลยเปิดบันทึกนี้ให้คนทั่วไปที่มีปัญหาเหมือนผม จะได้ไม่เสียเวลามาค้นคว้าใหม่ครับ ดังนั้นถ้าจะเข้ามาเพื่อหาพื้นฐาน OOP หรือ Delphi ก็ไม่ใช้จุดประสงค์ของ Blog นี้นะครับ
ปล. ตอนนี้ผมเลิกเขียน Delphi แล้วครับ ^^! เพราะว่าในความคิดผมเริ่มหมดยุคของ Delphi แล้วครับ หันไป Java หรือ .Net แทนครับ เครื่องมือที่เตรียมให้ หรือ ชุมชนนักพัฒนาก็มีเยอะกว่าด้วยครับ