UnitImportプログラムは、cajScript / PascalScriptの開発に何らかの形で取り入れられたようであり、PascalScriptアプリケーションの実装方法を理解するのに役立つ詳細の一部を隠している可能性があります。その場合、またはインポーターを使用せずにPascalScriptアプリケーションを作成したい場合、このようなクラスをスクリプト環境にどのように組み込みますか?:
TQuery = Class(TObject)
private
oSQL: TSQLQuery;
FFirstCall: Boolean;
function ExecSQL: Integer;
function GetFields(iNdx: Integer): String;
function GetFieldNames(iNdx: Integer): String;
function GetFieldCount: Integer;
public
EOF: Boolean;
Constructor Create(Owner: TComponent);
Destructor Destroy;
property FieldCount: Integer Read GetFieldCount;
property FieldNames[iNdx: Integer]: String Read GetFieldNames;
property Fields[iNdx: Integer]: String Read GetFields;
procedure AddSQL(sSQL: String);
procedure ExecSQL;
function Fetch: Boolean;
end;
2つの説明文書とニュースグループによって残されたギャップのいくつかを埋める可能性のあるPascalScriptの使用に関するいくつかの基本的なメモをまとめたいと思っています。
助けてくれてありがとう。