Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- library Lib_6_2;
- uses
- System.SysUtils,
- System.Classes,
- Fmx.Types,
- ElementView,
- MakeAllClass in 'MakeAllClass.pas';
- var
- MakeAll:TMakeAll=nil;
- {$R *.res}
- function GetAnswer():String;export;
- begin
- Result:=MakeAll.GetAnswer;
- end;
- function ToStart(Parent: TFmxObject):String;export;
- begin
- if(MakeAll=nil)then
- MakeAll:=TMakeAll.Create;
- Result:=MakeAll.ToStart(Parent);
- end;
- exports
- GetAnswer, ToStart;
- begin
- MakeAll := TMakeAll.Create;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement