From 129df262ae3025373af2f9e0c04c536167ccb09a Mon Sep 17 00:00:00 2001
From: artem3213212 <cx-1212@yandex.ru>
Date: Wed, 21 Mar 2018 09:16:53 +0300
Subject: [PATCH] =?UTF-8?q?=D0=9E=D0=B1=D0=BD=D0=BE=D0=B2=D0=B8=D1=82?=
 =?UTF-8?q?=D1=8C=20'Source/RuntimeBuilder.Types.pas'?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Source/RuntimeBuilder.Types.pas | 21 +++++++++++----------
 1 file changed, 11 insertions(+), 10 deletions(-)

diff --git a/Source/RuntimeBuilder.Types.pas b/Source/RuntimeBuilder.Types.pas
index 46b07b2..7f8783d 100644
--- a/Source/RuntimeBuilder.Types.pas
+++ b/Source/RuntimeBuilder.Types.pas
@@ -21,16 +21,6 @@ type
 
   TRTBCallType=CRTBCallTypeNil..CRTBCallTypeDefault;
 
-  TRTBSource=class abstract
-    private
-      Compliter:TRTBCompliter;
-      function GetText:string;virtual;abstract;
-      procedure SetText(S:string);virtual;abstract;
-    public
-      procedure Complete();virtual;abstract;
-      property Text:string read GetText write SetText;
-  end;
-
   TRTBFunc=class abstract
     public
       function Call(args:array of const;CallType:TRTBCallType=CRTBCallTypeDefault):Variant;virtual;abstract;
@@ -43,6 +33,17 @@ type
       property Funtion[Name:string]:TRTBFunc read GetFuntion;
   end;
 
+  TRTBSource=class abstract
+    private
+      Compliter:TRTBCompliter;
+      function GetText:string;virtual;abstract;
+      procedure SetText(S:string);virtual;abstract;
+    public
+      procedure CompleteAsLib:TRTBLib;virtual;abstract;
+      procedure CompleteAsFunc:TRTBLib;virtual;abstract;
+      property Text:string read GetText write SetText;
+  end;
+
   TRTBCompliter=class abstract
     public
       function LoadLib(Name:string):TRTBLib;virtual;abstract;