ソースを参照

rtl: clean up

mattias 6 年 前
コミット
e86dfef5de
1 ファイル変更1 行追加2 行削除
  1. 1 2
      packages/rtl/system.pas

+ 1 - 2
packages/rtl/system.pas

@@ -444,10 +444,9 @@ type
   private
   private
     FLength: NativeInt; external name 'length';
     FLength: NativeInt; external name 'length';
     function GetElements(Index: NativeInt): JSValue; external name '[]';
     function GetElements(Index: NativeInt): JSValue; external name '[]';
-    procedure SetElements(Index: NativeInt; const AValue: JSValue); external name '[]';
   public
   public
     property Length: NativeInt read FLength;
     property Length: NativeInt read FLength;
-    property Elements[Index: NativeInt]: JSValue read GetElements write SetElements; default;
+    property Elements[Index: NativeInt]: JSValue read GetElements; default;
   end;
   end;
 var
 var
   WriteBuf: String;
   WriteBuf: String;