牪Delphi5昵硯幬Wタ↖Delphi 5.x 懠⑺d佸葫塥牪褗fＴ⊕?タ謍郔佾?疋OK宙鵚遻呁Delphi7袟佾鶋F甂碻cタDynamicSQLDemo謍郔C佾?鯰豯xタC踡蒺崦 procedure TDynamicSQLDemoServer.GetAllTables(var vTables: OleVariant); var tblList : TStringList; iCount : Integer; begin try tblList := TStringList.Create; adocDSQL.GetTableNames(tblList); vTables := VarArrayCreate([0, tblList.Count - 1], varVariant); for iCount := 0 to tblList.Count - 1 do begin vTables[iCount] := tblList.Strings[iCount]; end; finally tblList.Free; end; end; --------------------------------------------------------------------------------- [Warning] PDynamicSQLDemo_TLB.pas(208): Unsafe type 'LicenseKey: Pointer' [Warning] PDynamicSQLDemo_TLB.pas(211): Unsafe code '@ operator' [Error] urdmDynamicSQLServer.pas(50): Undeclared identifier: 'VarArrayCreate' [Fatal Error] PDynamicSQLDemo.dpr(7): Could not compile used unit 'urdmDynamicSQLServer.pas' 伐縼謝薷鷾趥肢舜嗤洧菕﹌紡橯杗

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.