Delphi
2022-12-28
30
改进前://------------------------------------Application.Initialize;Application.ShowMainForm := False;Application.CreateForm(TfMain, fMain);Application.Run;//------------------------------------ 改进后://------------------------------------Application.Initiali
2022-12-28
34
uRomanNumerals.pasunit uRomanNumerals;interfaceuses System.SysUtils;type TRomanNumRange = 0..3999; { TRomanNum } TRomanNum = class private const NumArr: array [0..12] of record n: Integer; c: string end = ( (n: 1; c: '
2022-12-28
28
//数字转换罗马function ToRoman(const iArabic: Integer): String;const // S5 は 5 * 10^n を表すシンボル, S1 は 1 * 10^n を表すシンボル ROMAN_SYMBOLS: array [-1.. 3] of record S5, S1: Char end = ( (S5: ' '; S1: ' '), // ��欹隶Д氓�を横着するためのダミ�` (S5: ' '
2022-12-27
39
关于如何使用Delphi开发的智能手机应用程序检测屏幕旋转的备忘录。环境:Delphi 10.3 Rio方法当设备的屏幕方向更改时,将发送FMX.Forms.TOrientationChangedMessage。如果您能收到此消息,则可以进行判断。System.Messaging.TMessageManager负责应用程序的消息处理。您可以在其中注册TOrientationChangedMessage的处理方法。作为程序获取TMessageManager的实例调用TMessageManager.Subs
2022-12-27
64
当应用程序本身变为活动状态或进入后台时如何获取事件。使用IFMXApplicationEventService获取状态更改的通知。uses FMX.Platform; type TForm1 = class(TForm) Memo1: TMemo; procedure FormCreate(Sender: TObject); private { private 宣言 } /// <summary> /// アプリケ�`ションの状�B�浠�イベントを受け取
2022-12-27
33
介绍我试图查看汇编程序是否仍可以与Delphi 10一起使用。我没有精力去写复杂的东西,所以我尝试用冒泡排序作弊,这是我在学生时代学到的第一个算法。假定要排序的数据已经设置在数据:整数数组[0..DATACOUNT]中。DATACOUNT是一个常数。Pascal :procedure TForm1.bubble;var i,j,v : integer; exchange : boolean;begin for i := DATACOUNT downto 1 do begin exchan
2022-12-27
49
使用它的TMemo.SelText属性就可以。 例如:Memo1.SelText := '插入字符串'; 如果不希望将当前选中字符串被替换,之前可以使用TMemo.SelLength设置为0。
2022-12-27
53
uses Windows,ComObj,ShlObj,ActiveX;{ 函数功能:创建指定文件的快捷方式 TargetFile: 快捷方式指向的文件或目录 CreateAt: 创建的快捷方式保存路径 函数返回True表示操作成功,False表示失败}function CreateShortCut(TargetFile,CreateAt:string):Boolean;const IID_IPersistFile:TGUID = '