dws2classeslibmodule.pas

script language

begin
  TStringHashtable(ExtObject).Put(Info['Key'], Info['Value']);
end;

procedure Tdws2ClassesLib.dws2UnitClassesTStringHashtableMethodsGetEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  Info['Result'] := TStringHashtable(ExtObject).Get(Info['Key']);
end;

procedure Tdws2ClassesLib.dws2UnitClassesTStringHashtableMethodsHasKeyEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  Info['Result'] := TStringHashtable(ExtObject).HasKey(Info['Key']);
end;

procedure Tdws2ClassesLib.dws2UnitClassesTStringHashtableMethodsRemoveKeyEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  Info['Result'] := TStringHashtable(ExtObject).RemoveKey(Info['Key']);
end;

procedure Tdws2ClassesLib.dws2UnitClassesTStackConstructorsCreateAssignExternalObject(
  Info: TProgramInfo; var ExtObject: TObject);
begin
  ExtObject := TStack.Create;
end;

procedure Tdws2ClassesLib.dws2UnitClassesTStackMethodsDestroyEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  ExtObject.Free;
end;

procedure Tdws2ClassesLib.dws2UnitClassesTStackMethodsPushEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  TStack(ExtObject).Push(Pointer(Integer(Info['Obj'])));
end;

procedure Tdws2ClassesLib.dws2UnitClassesTStackMethodsPopEval(Info: TProgramInfo;
  ExtObject: TObject);
begin
  Info['Result'] := Integer(TStack(ExtObject).Pop);
end;

procedure Tdws2ClassesLib.dws2UnitClassesTStackMethodsPeekEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  Info['Result'] := Integer(TStack(ExtObject).Peek);
end;

procedure Tdws2ClassesLib.dws2UnitClassesTStackMethodsCountEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  Info['Result'] := TStack(ExtObject).Count;
end;

procedure Tdws2ClassesLib.dws2UnitClassesTQueueConstructorsCreateAssignExternalObject(
  Info: TProgramInfo; var ExtObject: TObject);
begin
  ExtObject := TQueue.Create;
end;

procedure Tdws2ClassesLib.dws2UnitClassesTQueueMethodsDestroyEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  ExtObject.Free;
end;

procedure Tdws2ClassesLib.dws2UnitClassesTQueueMethodsPushEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  TQueue(ExtObject).Push(Pointer(Integer(Info['Obj'])));
end;

procedure Tdws2ClassesLib.dws2UnitClassesTQueueMethodsPopEval(Info: TProgramInfo;
  ExtObject: TObject);
begin
  Info['Result'] := Integer(TQueue(ExtObject).Pop);
end;

procedure Tdws2ClassesLib.dws2UnitClassesTQueueMethodsPeekEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  Info['Result'] := Integer(TQueue(ExtObject).Peek);
end;

procedure Tdws2ClassesLib.dws2UnitClassesTQueueMethodsCountEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  Info['Result'] := TQueue(ExtObject).Count;
end;

procedure Tdws2ClassesLib.dws2UnitClassesTListMethodsClearEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  TList(ExtObject).Clear;
end;

procedure Tdws2ClassesLib.dws2UnitClassesTListMethodsInsertEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  TList(ExtObject).Insert(Info['Index'], Pointer(Integer(Info['Obj'])));
end;

procedure Tdws2ClassesLib.dws2UnitClassesTStringsConstructorsCreateAssignExternalObject(
  Info: TProgramInfo; var ExtObject: TObject);
begin
  if not Assigned(ExtObject) then
    ExtObject := TStringList.Create;
end;

procedure Tdws2ClassesLib.dws2UnitClassesTStringsMethodsDestroyEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  ExtObject.Free;
end;

procedure Tdws2ClassesLib.dws2UnitClassesTStringsMethodsAddEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  Info['Result'] := TStrings(ExtObject).Add(Info['Str']);
end;

procedure Tdws2ClassesLib.dws2UnitClassesTStringsMethodsGetEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  Info['Result'] := TStrings(ExtObject)[Info['Index']];
end;

procedure Tdws2ClassesLib.dws2UnitClassesTStringsMethodsIndexOfEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  Info['Result'] := TStrings(ExtObject).IndexOf(Info['Str']);
end;

procedure Tdws2ClassesLib.dws2UnitClassesTStringsMethodsIndexOfNameEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  Info['Result'] := TStrings(ExtObject).IndexOfName(Info['Str']);
end;

procedure Tdws2ClassesLib.dws2UnitClassesTStringsMethodsInsertEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  TStrings(ExtObject).Insert(Info['Index'], Info['Str']);
end;

procedure Tdws2ClassesLib.dws2UnitClassesTStringsMethodsGetValuesEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  Info['Result'] := TStrings(ExtObject).Values[Info['Str']];
end;

procedure Tdws2ClassesLib.dws2UnitClassesTStringsMethodsSetValuesEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  TStrings(ExtObject).Values[Info['Str']] := Info['Value'];
end;

procedure Tdws2ClassesLib.dws2UnitClassesTStringsMethodsGetNamesEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  Info['Result'] := TStrings(ExtObject).Names[Info['s']];
end;

procedure Tdws2ClassesLib.dws2UnitClassesTStringsMethodsClearEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  TStrings(ExtObject).Clear;
end;

procedure Tdws2ClassesLib.dws2UnitClassesTStringsMethodsGetTextEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  Info['Result'] := TStrings(ExtObject).Text;
end;

procedure Tdws2ClassesLib.dws2UnitClassesTStringsMethodsSetTextEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  TStrings(ExtObject).Text := Info['Value'];
end;

procedure Tdws2ClassesLib.dws2UnitClassesTStringsMethodsGetCountEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  Info['Result'] := TStrings(ExtObject).Count;
end;

procedure Tdws2ClassesLib.dws2UnitClassesTStringsMethodsGetCommaTextEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  Info['Result'] := TStrings(ExtObject).CommaText;
end;

procedure Tdws2ClassesLib.dws2UnitClassesTStringsMethodsSetCommaTextEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  TStrings(ExtObject).CommaText := Info['Value'];
end;

procedure Tdws2ClassesLib.dws2UnitClassesTStringsMethodsLoadFromFileEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  TStrings(ExtObject).LoadFromFile(Info['FileName']);
end;

procedure Tdws2ClassesLib.dws2UnitClassesTStringsMethodsSaveToFileEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  TStrings(ExtObject).SaveToFile(Info['FileName']);
end;

procedure Tdws2ClassesLib.dws2UnitClassesTStringsMethodsDeleteEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  TStrings(ExtObject).Delete(Info['Index']);
end;

procedure Tdws2ClassesLib.dws2UnitClassesTStringsMethodsExchangeEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  TStrings(ExtObject).Exchange(Info['Index1'], Info['Index2']);
end;

procedure Tdws2ClassesLib.dws2UnitClassesTStringsMethodsMoveEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  TStrings(ExtObject).Move(Info['CurIndex'], Info['NewIndex']);
end;

procedure Tdws2ClassesLib.dws2UnitClassesTStringsMethodsAddStringsEval(
  Info: TProgramInfo; ExtObject: TObject);
var
  Obj: Integer;
  StringsObj: TStringList;
begin
  Obj := Info['Strings'];
  if Obj = 0 then
    StringsObj := nil
  else
    StringsObj := TStringList(IScriptObj(IUnknown(Obj)).ExternalObject);
  TStrings(ExtObject).AddStrings(StringsObj);
end;

procedure Tdws2ClassesLib.dws2UnitClassesTStringsMethodsGetObjectsEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  Info['Result'] := Integer(TStrings(ExtObject).Objects[Info['Index']]);
end;

procedure Tdws2ClassesLib.dws2UnitClassesTStringsMethodsSetObjectsEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  TStrings(ExtObject).Objects[Info['Index']] := Pointer(Integer(Info['Value']));
end;

procedure Tdws2ClassesLib.dws2UnitClassesTStringsMethodsAddObjectEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  Info['Result'] := TStrings(ExtObject).AddObject(Info['S'], Pointer(Integer(Info['AObject'])));
end;

procedure Tdws2ClassesLib.dws2UnitClassesTStringsMethodsInsertObjectEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  TStrings(ExtObject).InsertObject(Info['Index'], Info['S'], Pointer(Integer(Info['AObject'])));
end;

procedure Tdws2ClassesLib.dws2UnitClassesTStringsMethodsIndexOfObjectEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  Info['Result'] := TStrings(ExtObject).IndexOfObject(Pointer(Integer(Info['AObject'])));
end;

procedure Tdws2ClassesLib.dws2UnitClassesTStringsMethodsGetStringsEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  Info['Result'] := TStrings(ExtObject)[Info['Index']];
end;

procedure Tdws2ClassesLib.dws2UnitClassesTStringsMethodsSetStringsEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  TStrings(ExtObject)[Info['Index']] := Info['Value'];
end;

procedure Tdws2ClassesLib.dws2UnitClassesTStringListMethodsSortEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  TStringList(ExtObject).Sort;
end;

procedure Tdws2ClassesLib.dws2UnitClassesTStringListMethodsFindEval(
  Info: TProgramInfo; ExtObject: TObject);
var
  Index: Integer;
begin
  Info['Result'] := TStringList(ExtObject).Find(Info['S'], Index);
  Info['Index'] := Index;
end;

procedure Tdws2ClassesLib.dws2UnitClassesTStringListMethodsGetDuplicatesEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  Info['Result'] := TStringList(ExtObject).Duplicates;
end;

procedure Tdws2ClassesLib.dws2UnitClassesTStringListMethodsSetDuplicatesEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  TStringList(ExtObject).Duplicates := Info['Value'];
end;

procedure Tdws2ClassesLib.dws2UnitClassesTStringListMethodsGetSortedEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  Info['Result'] := TStringList(ExtObject).Sorted;
end;

procedure Tdws2ClassesLib.dws2UnitClassesTStringListMethodsSetSortedEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  TStringList(ExtObject).Sorted := Info['Value'];
end;

end.