【原创】开启内存泄露提示信息与跟踪探究

开启内存泄露提示信息。在工程里添加一句
       【    ReportMemoryLeaksOnShutdown := True;    】
关闭时,经过调试和测试 System.pas 单元, 有一句 FinalizeMemoryManager; 断点放进,继续跟踪下去
最终在 getmem.inc 文件里 ,
有一句 ShowMessage(LLeakMessage, LeakMessageTitle);   
想必这句就是有内存泄露时的弹窗提示了

“”

Delphi fmx 获取安卓硬件信息

 

 

//以为下 Delphi fmx 获取安卓硬件信息全源码
unit fMain;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes,
  System.Variants, System.Permissions, FMX.DialogService,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.ScrollBox,
  FMX.Memo, FMX.Layouts, FMX.Controls.Presentation, FMX.StdCtrls,
  System.DateUtils;

标签

去除 TStringList 重复项

procedure RemoveDuplicates(const AStrs: TStringList);
var
    Buf: TStringList;
    Idx: Integer;
begin
    AStrs.Sort;
    Buf := TStringList.Create;
    try
        Buf.Sorted := True;
        Buf.Duplicates := dupIgnore;
        Buf.BeginUpdate;
        for Idx := 0 to AStrs.Count - 1 do begin
           Buf.Add(AStrs[Idx]) ;
        end;
        Buf.EndUpdate;
        AStrs.Assign(Buf) ;
    finally
        FreeandNil(Buf) ;
    end;
end;

【原创】DevExpress 控件的安装

    DevExpress 控件是一个非常牛逼的控件。特别是玩数据库增删改查的同学大多数都用到过。通常把它称作DEV控件。在以前旧版本中都是以 dx开头,后来改版,控件名称都以cx开头。也修改的更加强大,功能也强,控件也多。也有人把它叫作巨无霸,觉得它太重了。在开始使用 Dev 控件之前,我分享一下我是怎么用Dev源码安装控件的。

先打开源码目录 如下图:

“”

此时此刻我们要打开所有的源码工程,用Delphi打开上上面目录,然后使用右上角搜索,根据你实现Delphi版本的情况,如下图我的Delphi 是对应的 25 ,先这样全部查出来。然后Ctal+A, 全部选中后,点打开。

标签

【原创】Lazarus 绿色版启动制作

Lazarus 程序是开源免费的,但要安装也麻烦,可以通过第1次安装,然后打包备份的方法,下次直接解压运行,以下为我的方法

把 Lazarus 安装好后,复制整个安装目录,然后使用下以代码编译程序 ,启动调用运行

unit uMain;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;