//程序事件服务操作var FMXApplicationEventService: IFMXApplicationEventService;begin if TPlatformServices.Current.SupportsPlatformService (IFMXApplicationEventService, IInterface(FMXApplicationEventService)) then FMXApplicationEventService.SetApplicationEve
delphi xe10 麦克风、摄像头操作TakePhotoFromCameraAction1: TTakePhotoFromCameraAction; // 通过手机摄像头获取图片TakePhotoFromLibraryAction1: TTakePhotoFromLibraryAction; //获取手机已存在图片ShowShareSheetAction1: TShowShareSheetAction;//用其它程序分享图片（Bitmap.Assign();）获取麦克风设置 FMX.MediaFMi
TThread.CreateAnonymousThread( // 创建一个匿名线程， procedure begin // 代码。 TThread.Synchronize(TThread.CurrentThread, procedure // 处理异步交互 begin end); end).Start; 创建时间：2020.06.01 更新时间： 博客园 滔Roy https://www.cnblo
Delphi XE10 Android安卓 移动端 MessageDlg 用法123456MessageDlg ('今天天气：'+#13+' very good！', TMsgDlgType.mtInformation, [TMsgDlgBtn.mbOk], 0, procedure(const AResult:TModalResult) begin if AResult=mrOk then ShowMessage('ok') els
Delphi XE 跨平台（WINDOWS、ANDROID安卓、苹果MACOS、苹果IOS）写法123456789101112{$IFDEF MSWINDOWS} //代码{$ENDIF}{$IFDEF ANDROID} //代码{$ENDIF}{$IFDEF MACOS} //代码{$ENDIF}{$IFDEF IOS} //代码{$ENDIF} 创建时间：2020.06.04 更新时间： 博客园 滔Roy https://www.cnblogs.com/guorongtao
Delphi XE android 调试错误：connection closed gracefully错误出现在：服务器客户端已正常断开套接字连接，此异常用于通知服务器处理代码。此异常是正常的，只会在IDE中发生，而不是在程序作为EXE运行时发生。如果您不想看到这一点，请将此异常或EIdSilentException添加到IDE选项中，作为不中断的异常。从IDE再次点击F9，Indy将捕获并处理异常。 错误出现在：客户此连接的服务器端已正常断开连接，但您的客户端已尝试读取或写入该连接。您应该使用 try
Delphi XE10 针对全面屏手机端无法全面显示，下方显示黑条的处理解决方法：1、找到安卓运行目录下的 AndroidManifest.xml 文件 添加一条参数2、或者 在开发目录下的 AndroidManifest.template.xml 文件添加<activity> <meta-data android:name="android.max_aspect" android:value="2.1" /></activity&
首先通过一个例子来展示pascal读写txt文件的方式：Program Salaries;Var F:Text; Salary,max:integer; Name:String[20]; MaxName:String; Sex:0..1;Begin Max:=0; Assign(F,'E:\Exam\Salary.txt'); Reset(F); While not Eof(F) Do Begin Read