Advertisement
Guest User

Untitled

a guest
Apr 23rd, 2019
80
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.46 KB | None | 0 0
  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.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement