imp_classes.pas

Delphi脚本控件

{$IFDEF VER140}
  {$DEFINE Delphi6_UP}
{$ENDIF}

{$IFDEF VER150}
  {$DEFINE Delphi6_UP}
{$ENDIF}

unit IMP_classes;
interface
uses
  SysUtils,
  Windows,
  ActiveX,
  classes,
  PaxScripter;
procedure RegisterIMP_classes;
implementation
function TList_GetCapacity:Integer;
begin
  result := TList(_Self).Capacity;
end;
procedure TList_PutCapacity(const Value: Integer);
begin
  TList(_Self).Capacity := Value;
end;
function TList_GetCount:Integer;
begin
  result := TList(_Self).Count;
end;
procedure TList_PutCount(const Value: Integer);
begin
  TList(_Self).Count := Value;
end;
function TList_GetItems(Index: Integer):Pointer;
begin
  result := TList(_Self).Items[Index];
end;
procedure TList_PutItems(Index: Integer;const Value: Pointer);
begin
  TList(_Self).Items[Index] := Value;
end;
function TList_GetList:PPointerList;
begin
  result := TList(_Self).List;
end;
function TThreadList_GetDuplicates:TDuplicates;
begin
  result := TThreadList(_Self).Duplicates;
end;
procedure TThreadList_PutDuplicates(const Value: TDuplicates);
begin
  TThreadList(_Self).Duplicates := Value;
end;
function TInterfaceList_GetCapacity:Integer;
begin
  result := TInterfaceList(_Self).Capacity;
end;
procedure TInterfaceList_PutCapacity(const Value: Integer);
begin
  TInterfaceList(_Self).Capacity := Value;
end;
function TInterfaceList_GetCount:Integer;
begin
  result := TInterfaceList(_Self).Count;
end;
procedure TInterfaceList_PutCount(const Value: Integer);
begin
  TInterfaceList(_Self).Count := Value;
end;
function TInterfaceList_GetItems(Index: Integer):IUnknown;
begin
  result := TInterfaceList(_Self).Items[Index];
end;
procedure TInterfaceList_PutItems(Index: Integer;const Value: IUnknown);
begin
  TInterfaceList(_Self).Items[Index] := Value;
end;
function TBits_GetBits(Index: Integer):Boolean;
begin
  result := TBits(_Self).Bits[Index];
end;
procedure TBits_PutBits(Index: Integer;const Value: Boolean);
begin
  TBits(_Self).Bits[Index] := Value;
end;
function TBits_GetSize:Integer;
begin
  result := TBits(_Self).Size;
end;
procedure TBits_PutSize(const Value: Integer);
begin
  TBits(_Self).Size := Value;
end;
function TCollectionItem_GetCollection:TCollection;
begin
  result := TCollectionItem(_Self).Collection;
end;
procedure TCollectionItem_PutCollection(const Value: TCollection);
begin
  TCollectionItem(_Self).Collection := Value;
end;
function TCollectionItem_GetID:Integer;
begin
  result := TCollectionItem(_Self).ID;
end;
function TCollectionItem_GetIndex:Integer;
begin
  result := TCollectionItem(_Self).Index;
end;
procedure TCollectionItem_PutIndex(const Value: Integer);
begin
  TCollectionItem(_Self).Index := Value;
end;
function TCollectionItem_GetDisplayName:String;
begin
  result := TCollectionItem(_Self).DisplayName;
end;
procedure TCollectionItem_PutDisplayName(const Value: String);
begin
  TCollectionItem(_Self).DisplayName := Value;
end;
function TCollection_GetCount:Integer;
begin
  result := TCollection(_Self).Count;
end;
function TCollection_GetItemClass:TCollectionItemClass;
begin
  result := TCollection(_Self).ItemClass;
end;
function TCollection_GetItems(Index: Integer):TCollectionItem;
begin
  result := TCollection(_Self).Items[Index];
end;
procedure TCollection_PutItems(Index: Integer;const Value: TCollectionItem);
begin
  TCollection(_Self).Items[Index] := Value;
end;

{$IFDEF Delphi6_UP}
function TStrings_ReadDelimiter:Char;
begin
  result := TStrings(_Self).Delimiter;
end;
procedure TStrings_WriteDelimiter(const Value: Char);
begin
  TStrings(_Self).Delimiter := Value;
end;
function TStrings_ReadDelimitedText:String;
begin
  result := TStrings(_Self).DelimitedText;
end;
procedure TStrings_WriteDelimitedText(const Value: String);
begin
  TStrings(_Self).DelimitedText := Value;
end;
function TStrings_ReadQuoteChar:Char;
begin
  result := TStrings(_Self).QuoteChar;
end;
procedure TStrings_WriteQuoteChar(const Value: Char);
begin
  TStrings(_Self).QuoteChar := Value;
end;
{$ENDIF}

function TStrings_GetCapacity:Integer;
begin
  result := TStrings(_Self).Capacity;
end;
procedure TStrings_PutCapacity(const Value: Integer);
begin
  TStrings(_Self).Capacity := Value;
end;
function TStrings_GetCommaText:String;
begin
  result := TStrings(_Self).CommaText;
end;
procedure TStrings_PutCommaText(const Value: String);
begin
  TStrings(_Self).CommaText := Value;
end;
function TStrings_GetCount:Integer;
begin
  result := TStrings(_Self).Count;
end;
function TStrings_GetNames(Index: Integer):String;
begin
  result := TStrings(_Self).Names[Index];
end;
function TStrings_GetObjects(Index: Integer):TObject;
begin
  result := TStrings(_Self).Objects[Index];
end;
procedure TStrings_PutObjects(Index: Integer;const Value: TObject);
begin
  TStrings(_Self).Objects[Index] := Value;
end;
function TStrings_GetValues(const Name: string):String;
begin
  result := TStrings(_Self).Values[Name];
end;
procedure TStrings_PutValues(const Name: string;const Value: String);
begin
  TStrings(_Self).Values[Name] := Value;
end;
function TStrings_GetStrings(Index: Integer):String;
begin
  result := TStrings(_Self).Strings[Index];
end;
procedure TStrings_PutStrings(Index: Integer;const Value: String);
begin
  TStrings(_Self).Strings[Index] := Value;
end;
function TStrings_GetText:String;
begin
  result := TStrings(_Self).Text;
end;
procedure TStrings_PutText(const Value: String);
begin
  TStrings(_Self).Text := Value;
end;
function TStrings_GetStringsAdapter:IStringsAdapter;
begin
  result := TStrings(_Self).StringsAdapter;
end;
procedure TStrings_PutStringsAdapter(const Value: IStringsAdapter);
begin
  TStrings(_Self).StringsAdapter := Value;
end;
function TStringList_GetDuplicates:TDuplicates;
begin
  result := TStringList(_Self).Duplicates;
end;
procedure TStringList_PutDuplicates(const Value: TDuplicates);
begin
  TStringList(_Self).Duplicates := Value;
end;
function TStringList_GetSorted:Boolean;
begin
  result := TStringList(_Self).Sorted;
end;
procedure TStringList_PutSorted(const Value: Boolean);
begin
  TStringList(_Self).Sorted := Value;
end;
function TStream_GetPosition:Longint;
begin
  result := TStream(_Self).Position;
end;
procedure TStream_PutPosition(const Value: Longint);
begin
  TStream(_Self).Position := Value;
end;
function TStream_GetSize:Longint;
begin
  result := TStream(_Self).Size;
end;
procedure TStream_PutSize(const Value: Longint);
begin
  TStream(_Self).Size := Value;
end;
function THandleStream_GetHandle:Integer;
begin
  result := THandleStream(_Self).Handle;
end;
function TCustomMemoryStream_GetMemory:Pointer;
begin
  result := TCustomMemoryStream(_Self).Memory;
end;
function TStringStream_GetDataString:String;
begin
  result := TStringStream(_Self).DataString;
end;
function TStreamAdapter_GetStream:TStream;
begin
  result := TStreamAdapter(_Self).Stream;
end;
function TStreamAdapter_GetStreamOwnership:TStreamOwnership;
begin
  result := TStreamAdapter(_Self).StreamOwnership;
end;
procedure TStreamAdapter_PutStreamOwnership(const Value: TStreamOwnership);
begin
  TStreamAdapter(_Self).StreamOwnership := Value;
end;
function TFiler_GetRoot:TComponent;
begin
  result := TFiler(_Self).Root;
end;
procedure TFiler_PutRoot(const Value: TComponent);
begin
  TFiler(_Self).Root := Value;
end;
function TFiler_GetLookupRoot:TComponent;
begin
  result := TFiler(_Self).LookupRoot;
end;
function TFiler_GetAncestor:TPersistent;
begin
  result := TFiler(_Self).Ancestor;
end;
procedure TFiler_PutAncestor(const Value: TPersistent);
begin
  TFiler(_Self).Ancestor := Value;
end;
function TFiler_GetIgnoreChildren:Boolean;
begin
  result := TFiler(_Self).IgnoreChildren;
end;
procedure TFiler_PutIgnoreChildren(const Value: Boolean);
begin
  TFiler(_Self).IgnoreChildren := Value;
end;
function TReader_GetOwner:TComponent;
begin
  result := TReader(_Self).Owner;
end;
procedure TReader_PutOwner(const Value: TComponent);
begin
  TReader(_Self).Owner := Value;
end;
function TReader_GetParent:TComponent;
begin
  result := TReader(_Self).Parent;
end;
procedure TReader_PutParent(const Value: TComponent);
begin
  TReader(_Self).Parent := Value;
end;
function TReader_GetPosition:Longint;
begin
  result := TReader(_Self).Position;
end;
procedure TReader_PutPosition(const Value: Longint);
begin
  TReader(_Self).Position := Value;
end;
function TWriter_GetPosition:Longint;
begin
  result := TWriter(_Self).Position;
end;
procedure TWriter_PutPosition(const Value: Longint);
begin
  TWriter(_Self).Position := Value;
end;
function TWriter_GetRootAncestor:TComponent;
begin
  result := TWriter(_Self).RootAncestor;
end;