|
|||
|
摘要：
主程序装载脚本procedure TForm1.FormCreate(Sender: TObject);begin fsScript1.Clear; fsScript1.Parent := fsGlobalUnit; fsScript1.AddComponent(Form1); fsScript1.Lines.LoadFromFile('1.txt'); fsScript1.Run;end; 1.txt文件uses 'lang.txt'; //引用公用的语言单元 procedure button1click(sender: tobject);begin show 阅读全文
posted @ 2013-11-26 15:29 大悟还俗_2 阅读(294) 评论(0) 推荐(0) 编辑
摘要：
{ Google ZXing Call demo Delphi Version: Delphi XE5 Version 19.0.13476.4176 By: flcop(zylove619@hotmail.com) }unit UMain;interfaceuses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls, ... 阅读全文
posted @ 2013-11-26 15:05 大悟还俗_2 阅读(1010) 评论(0) 推荐(0) 编辑
摘要：
uses Androidapi.JNI.Os, Androidapi.JNIBridge;function GetVibratorArray(const AIntArr: array of Int64): TJavaArray;var LIndex: Integer;begin Result := TJavaArray.Create(Length(AIntArr)); for LIndex := Low(AIntArr) to High(AIntArr) do Result.Items[LIndex] := AIntArr[LIndex];end;procedure Vibra... 阅读全文
posted @ 2013-11-26 15:04 大悟还俗_2 阅读(422) 评论(0) 推荐(0) 编辑 |
|||
