مشکل در مورد class

[Sohrab_Tapar]

من با یک حلقه به شکل زیر میخام همه کامپوننتهایی
را که زیر کلاسی از tdataset هستند
(مثل ttableوtqueryو...)
پیدا کنم

For i := 0 To Form1.ComponentCount-1 Do

  If Form1.Components[i] ???? Then//اینجا باید شرط مناسب قرار بگیره

    DoSomething

ولی نمیدانم چه باید بنویسم

نکته:

If Form1.Components[i] Is TDataset 

به دردم نمیخوره.چون tdataset در یک رشته قرار دارد
در حقیقت من نام یک کلاس را دارم و میخواهم همه کامپوننتهایی که
از آن کلاس یا زیر کلاسی از آن هستند پیدا کنم

[orion188]

سلام.
شما میتونین از متد InheritsFrom استفاده کنین.
توی help خود دلفی کامل در این مورد توضیح داده شده.

[Sohrab_Tapar]

inheritesfrom خود کلاس را میگیره ولی من اسم اون کلاس رو دارم

[مهدی کرامتی]

این مشکل تون رو حل میکنه؟ :

var i:integer;

begin

  for i:=0 to Form1.ComponentCount-1 do

    if Form1.Components[i] is TDataSet then

      ListBox1.Items.Add((Form1.Components[i  ] as TDataSet).Name);

end;

:?:

[Sohrab_Tapar]

نه متاسفانه
بگذارید این طوری بگم .
من یک متغیر از نوع string دارم که نام یک کلاس را در خود دارد
مثلا tdataset یا tcustomcombobox یا هر چیز دیگه.
حالا من میخوام همه کمپوننتهایی را که از کلاس مشخص شده در این string هستند ونیز
همه کمپوننتهایی که زیر کلاسی از آن هستند پیدا کنم.
مثلا اگر string مذکور برابر tdataset بود
کمپوننتهایی مثل table1 و table2 , query1 را پیدا کنم.

[Sohrab_Tapar]

function TInspectorForm.ClassInheritesFrom(Obj: TObject;

  ClassName: String): Boolean;

var

  cl : TClass;

begin

  Result := False;

  cl := Obj.ClassType;

  While cl.ClassName <> 'TObject' Do Begin

    If cl.ClassName = ClassName Then Begin

      Result := True;

      Break;

    End;

    cl := cl.ClassParent;

  End;

end;