CnPack Forum

#1 DELPHI 2009的转变，令cnpack的部分公共库的单元失效。
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
end;

var
Form1: TForm1;

implementation

{ *.dfm}

{函数}
function GetVarType(const v: Variant): string;
begin
case VarType(v) of
varEmpty : Result := 'Empty';
varNull : Result := 'Null';
varSmallint : Result := 'Smallint';
varInteger : Result : ..

#1 >>Next Page

Forum:CnVCL 组件包
Thread:DELPHI 2009的转变，令c ...
Next Thread:杀毒软件报应用程序病 ...

Home
Login

Powered by Discuz!