اضافه کردن نام فیلد به لیست فیلدهای Table در زمان اجرا

[MNosouhi]

اضافه کردن نام فیلد به لیست فیلدهای تابل در زمان اجرا
با سلام
طاعات و عبادات قبول
حتما می دونید که اگر روی کامپوننت تابل دابل کلیک کرده و سپس Add All Field رو بزنید فیلدها به لیست اضافه می شوند . حالا من میخام همین کار رو در زمان اجرا انجام بدم یعنی در حین اجرای برنامه بتونم به این لیست اضافه کنم . کسی می تونه کمک کنه؟

[Naficy]

شما احتیاجی به این کار ندارین. (چون غیر ممکنه!!)
دقت کنید که این لیست هنگام طراحی خالی باشد. در زمان اجرا هم برای دسترسی به فیلدها از توابعی مثل FieldByName ، Fields و ... استفاده کنید.

[Touska]

میخواهی رکورد جدید نعریف کنی یا نه.

اگر میخواهی رکورد جدید تعریف کنی که کاری نداره.

اون کار رو هم میشه انجام داد فقط باید نوعشو بدونی :

AdoTable1Famil: TWideStringField;

[MNosouhi]

شما احتیاجی به این کار ندارین.

بعضی از کارها را فقط دز حالتی که در بالا توضیح دادم میشه روی فیلد انجام داد و استفاده از دستورات FieldByName ، Fields و... بی فایده است.

اون کار رو هم میشه انجام داد فقط باید نوعشو بدونی

نمی خام فیلد جدید تعریف کنم ، نوعش رو هم می دونم ، اما نمی دونم چطور باید به لیست اضافه کرد.اگه میشه بیشتر توضیح بدین.

[Touska]

به این شکل :

procedure TForm1.Button1Click(Sender: TObject);

Var

 AdoTable1City_Name : TWideStringField;

begin

 AdoTable1City_Name := TWideStringField.Create(Self);

 AdoTable1City_Name.FixedChar := True;

 AdoTable1City_Name.FieldName := 'City_Name';

 AdoTable1City_Name.DisplayLabel := 'City_Name';

 AdoTable1City_Name.Size := 50;

 AdoTable1City_Name.DataSet := ADOTable1;

 ADOTable1.Active := True;

 With ADOTable1 Do

  Begin

   Insert;

   Edit;

   AdoTable1City_Name.AsString := 'Khaki';

   Post;

  End;

end;

فقط کاری که شما باید انجام بدید اینکه متغیرتون رو به صورت global تعریف کنید.

[MNosouhi]

ممنون.حل شد.
اینم یه شهرت برا آقا مصطفی.حالشو ببر