去除 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;

【原创】Delphi 下开发编译 Linux 程序教程全过程, 图文并茂详解

本教程教你怎么一步一步搭建编译Liux程序环境。请需要的同学细细阅读

第一步,找到 Delphi 的安装目录,对应的  XXX\Studio\20.0\PAServer  目录,找到  LinuxPAServer20.0.tar.gz 文件  放Linux 下 ,解压

”“

运行程序   ./PAServer