新delphi的线程TThread有了CreateAnonymousThread方法,如果再为它加一个可传递的参数不就更好了吗?代码如下:复制代码复制代码 TAnonymousThreadX<T> = class(TThread) private FProc: TProc<T>; AValue:T; protected procedure Execute; override; public constructor Create(const APro
{$IFDEF MSWINDOWS}uses Winapi.Windows, ShlObj, FMX.PlatForm.Win, ShellAPI;{$ENDIF}{$IFDEF ANDROID}uses Androidapi.JNI.JavaTypes, Androidapi.Helpers, Androidapi.JNI.GraphicsContentViewText;{$ENDIF}//上面引用仅供参考{$IFDEF ANDROID}function GetAppVersion: String;
DELPHI写的播放器核心代码，播放MP3无压力主窗口代码：unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, tcMMControl; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure FormC
{$IFDEF USE_VCL_BITMAP} VCL.Graphics,{$ELSE} FMX.Graphics,{$ENDIF}
用FMX压缩图片，发现FMX里的canvas没有draw,stretch,cliprect类，FMX里程序创建时会自动引用FMX.Graphics，而这个单元内的TBitmap类的Canvas没有StretchDraw属性，也没有ClipRect类，所以定义TBitmap的图片不能裁剪。而在VCL里，同样的方法却可以裁剪，原因在于vcl里引用的是vcl.graphics，引用单元不一样，平台不一样.解决方法:把FMX里自身引用的FMX.Graphics删掉，换成VCL.Graphics.XE里的FMX是
Delphi XE Andriod 文件后缀对应MIME类型//{后缀名， MIME类型}{".3gp", "video/3gpp"},{".apk", "application/vnd.android.package-archive"},{".asf", "video/x-ms-asf"},{".avi", "video/x-msvideo"}
ACCESS_CHECKIN_PROPERTIES //允许读/写访问“属性”签到表 数据库,改变值,得到上传。ACCESS_COARSE_LOCATION //允许应用程序访问来自网络位置近似位置 基站和无线网络等资源。ACCESS_FINE_LOCATION //允许应用程序访问位置来源的精确位置 GPS、基站和无线网络。ACCESS_LOCATION_EXTRA_COMMANDS //允许应用程序访问额外的位置提供者命令ACCESS_MOCK_LOCATION //允许应用程序创建模拟位
vari:integer;beginfor I := 0 to ListBox1.Items.Count-1 dobeginif ListBox1.Selected[I] then beginMemo2.Lines.Add(ListBox1.Items.Strings[I]);end;end;