請問要如何使用SetPropValue將資料代入具有Items(TStrings)的元件內 ! 謝謝 發表人 - gohorng 於 2004/09/14 08:29:52

取得 PropInfo:PPropInfo =GetPropInfo(AComponent.classInfo,PropertyName); var Items:TStringList; PS :Pointer; begin Items :=TStringList.Create; Try PS :=Pointer(GetOrdProp(AComponent,PropInfo)); Items.Assign(Tstrings(PS)); ---------------- Items.add('加入到Items的資料'); Items.add('加入到Items的資料'); ..... -------------- if Items.Count>0 then SetOrdProp(AComponent,PropInfo,LongInt(Pointer(Items))); Finally Items.Clear; Items.Free; end; end;