سئوال در مورد ایجاد یک کلاس ساده

سلام
در قسمت type کلاس رو تعریف میکنم
test=class
a:integer
b:string
end
در فسمت var یک متغیر از نوع کلاس تعریف کردم
x:test
در برنامه یکی از متغیرها رو مقداردهی میکنم خطای زمان اجرا میده
x.a:=65

لطفا بگید چرا؟
ولی وقتی به جای کلاس از کلمه record استفاده میکنم بدون مشکل اجرا میشه!

ضمنا یک سئوال دیگه
یک نوع داده ای جدید داریم مثل:
mytype=(type1,type2,type3
حالا یک متغیر از این نوع داده ای رو مقدار دهی میکنیم:
var
x:mytype
x:=type2
چطور این مقدار رو باید در بانک اطلعاتی ذخیره کنیم؟ یعنی فیلد رو از چه نوع داده ای قرار بدیم؟

سلام

نقل قول:

---

در برنامه یکی از متغیرها رو مقداردهی میکنم خطای زمان اجرا میده
x.a:=65

لطفا بگید چرا؟

---

قبلا راه حل رو برای شما گذاشتم:
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

نقل قول:

---

ولی وقتی به جای کلاس از کلمه record استفاده میکنم بدون مشکل اجرا میشه!

---

همونطور که مثلا نوع داده ای string با integer فرق داره، این دو هم تفاوت دارند. در رکورد شما میتونید رکوردی از مجموعه ی داده ها داشته باشید اما تابع و رویه ندارید، اما در کلاس فرق داره. شما باید با توجه به نیازتون از هر کدوم استفاده کنید

نقل قول:

---

یک نوع داده ای جدید داریم مثل:
mytype=(type1,type2,type3
حالا یک متغیر از این نوع داده ای رو مقدار دهی میکنیم:
var
x:mytype
x:=type2
چطور این مقدار رو باید در بانک اطلعاتی ذخیره کنیم؟ یعنی فیلد رو از چه نوع داده ای قرار بدیم؟

---

نوع داده ای جدیدی که تعریف میکنید در واقع یک مجموعه هست که ایندکس اولین عنصر 0 هست. یعنی شما در واقع با اعداد سر و کار دارید. مثلا زمانی که شما x:=type2 رو به کار میبرید مقدار x برابر با 1 میشه.
موفق باشید

خب استاد عزیز
ممنون از زحماتی که کشیدی.
الان تعریف و ساخت کلاس رو یاد گرفتم. ولی مشکل اینجاست که میخوام یک لیست از این کلاس بسازم -یک آرایه دینامیک-
برای اینکه توابع ADD,Del,غیره در کلاس پایه TList وجود داره از کلاس TObjectList استفاده کردم ولی نمیتونم درست انجام بدم.
اگه ممکنه لطف کنید یک آرایه از کلاس رو به صورت داینامیک ایجاد کنید.
با تشکر

نقل قول:

---

میخوام یک لیست از این کلاس بسازم -یک آرایه دینامیک-

---

آرایه دینامیک از کلاس:

کد:

---

type
  TMyClass=class
  i:Integer;
  end;

---

استفاده:

کد:

---

procedure TForm1.Button1Click(Sender: TObject);
var
  dynamicArray:array of TMyClass;
  j:integer;
begin
SetLength(dynamicArray,4);
for j:=0 to 3 do
  begin
  dynamicArray[j]:=TMyClass.Create();
  dynamicArray[j].i:=j;
  ShowMessage(inttostr(DynamicArray[j].i));
  end;
end;

---

نقل قول:

---

برای اینکه توابع ADD,Del,غیره در کلاس پایه TList وجود داره از کلاس TObjectList استفاده کردم ولی نمیتونم درست انجام بدم.

---

متوجه منظور شما نشدم