Delphi 全局数据的保存与GUID的生成

在客户端应用程序中，全局变量用于保存全局使用的数据，比如：用户登录后保存用户的信息资料等。在 Delphi 中，可以通过专门的单元来保存全局数据，示例代码如下：

type
  User = Record
    usr_id, name, sex, acc: String;
    is_admin, is_disable: Integer;
  end;

var
  CurrentUser: User;

由于当前分布式数据库的发展以及系统数据量的不断增加，在应用程序开发中，GUID 的使用也越来越多了，所以在客户端应用程序中生成 GUID 也是非常有必要的，在 Delphi 中，GUID 的生成非常简单，通过 CreateGuid 过程即可生成，示例代码如下：

function GenGUID(): String;
var
  Guid: TGuid;
begin
  CreateGuid(Guid);
  Result:=Guid.ToString().Replace('{', '').Replace('}', '').Replace('-', '');
end;                 

而上面的生成 GUID 的代码，为了使后面的应用程序使用方便，也不必单独建立单元来实现，直接在全局数据单元中实现即可，我们一般会在应用程序中增加一个 globalunit 的单元文件，在该单元文件中，包括全局变量的类型和变量的声明以及公用过程和函数的声明及实现，代码如下：

unit globalunit;

{$mode ObjFPC}{$H+}

interface

uses
  Classes, SysUtils;

type
  User = Record
    usr_id, name, sex, acc: String;
    is_admin, is_disable: Integer;
  end;

var
  CurrentUser: User;

function GenGUID(): String;

implementation

function GenGUID(): String;
var
  Guid: TGuid;
begin
  CreateGuid(Guid);
  Result:=Guid.ToString().Replace('{', '').Replace('}', '').Replace('-', '');
end;

end.