SHARE
TWEET

Untitled

a guest Apr 23rd, 2019 62 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. library Lib_6_2;
  2.  
  3.  
  4. uses
  5.   System.SysUtils,
  6.   System.Classes,
  7.   Fmx.Types,
  8.   ElementView,
  9.   MakeAllClass in 'MakeAllClass.pas';
  10. var
  11.    MakeAll:TMakeAll=nil;
  12.  
  13.  
  14.  
  15.  
  16. {$R *.res}
  17.  
  18. function GetAnswer():String;export;
  19. begin
  20.    Result:=MakeAll.GetAnswer;
  21. end;
  22. function ToStart(Parent: TFmxObject):String;export;
  23.  
  24. begin
  25.    if(MakeAll=nil)then
  26.    MakeAll:=TMakeAll.Create;
  27.    Result:=MakeAll.ToStart(Parent);
  28. end;
  29. exports
  30. GetAnswer, ToStart;
  31. begin
  32. MakeAll := TMakeAll.Create;
  33. end.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top