瀏覽代碼

* Merging revisions 40932 from trunk:
------------------------------------------------------------------------
r40932 | michael | 2019-01-20 13:52:17 +0100 (Sun, 20 Jan 2019) | 1 line

* Insert and Delete are compiler internals now, need fake definitions
------------------------------------------------------------------------

git-svn-id: branches/fixes_3_2@40933 -

michael 6 年之前
父節點
當前提交
e1faa3b00d
共有 1 個文件被更改,包括 4 次插入0 次删除
  1. 4 0
      rtl/inc/system.fpd

+ 4 - 0
rtl/inc/system.fpd

@@ -42,6 +42,10 @@ Procedure Dispose (P : TypedPointer; Des : TProcedure);
 Procedure Exclude (Var S : TSetType; E : TSetElement);
 Procedure Exclude (Var S : TSetType; E : TSetElement);
 Procedure Exit(Const X : TAnyType);
 Procedure Exit(Const X : TAnyType);
 Procedure Exit;
 Procedure Exit;
+Procedure Delete(var S : String; Const Index, Count : Integer);
+Procedure Delete(var A : DynArrayType; Const Index, Count : Integer);
+Procedure Insert(Const source: string; var S : String; Const Index : Integer);
+Procedure Insert(Const source: DynaArrayType; var S : DynArrayType; Const Index : Integer);
 Function High (Arg: TypeOrVariable) : TOrdinal;
 Function High (Arg: TypeOrVariable) : TOrdinal;
 Procedure Inc (Var X : TOrdinal);
 Procedure Inc (Var X : TOrdinal);
 Procedure Inc (Var X : TOrdinal; Increment : TOrdinal);
 Procedure Inc (Var X : TOrdinal; Increment : TOrdinal);