txgh

摘要： 判断类是否实现接口，获取类实现的接口 代码 type ICeShi = interface ['{37CABB9D-CAA2-4589-A0C8-5AA1424E525B}'] function ToPrint: string; end; TCeShi = class(TInterfacedObje 阅读全文

摘要： Byte 与 字符串（AnsiString、WideString） 相互转换 代码 String转Byte procedure TForm1.Button1Click(Sender: TObject); var buf: TBytes; I: Integer; begin //ANSI编码 buf 阅读全文

摘要： Byte 与 AnsiChar、WideChar 相互转换 代码 AnsiChar、WideChar转Byte procedure TForm1.Button1Click(Sender: TObject); var ac: AnsiChar; wc: WideChar; bys: TBytes; b 阅读全文

摘要： GUID相关操作 代码 procedure TForm1.Button1Click(Sender: TObject); var GUID1, GUID2: TGUID; begin //创建GUID if CreateGUID(GUID1) <> 0 then Memo1.Lines.Add('创建 阅读全文

摘要： SQLServer 游标简单使用 示例 简单使用 --定义变量 Declare @ID int, @Code varchar(10) --定义游标 Declare _cur CURSOR FOR Select ID, Code from tceshi WHERE ID < 100 --打开游标 OP 阅读全文

摘要： 增加32位应用程序内存地址空间，解决“Out of memory”问题 使32 位应用程序能够在64位Windows 访问最大 4GB 内存空间 在应用程序的 .dpr 文件中添加编译指令 {$SetPEFlags IMAGE_FILE_LARGE_ADDRESS_AWARE} 。 uses Win 阅读全文

摘要： SQLServer 的驱动程序 介绍 ODBC 有三代不同的 Microsoft ODBC Driver for SQL Server。 SQL Server ODBC 仍作为 Windows 数据访问组件的一部分提供。 不再对其进行维护，且不建议在新开发中使用此驱动程序。 SQL Server N 阅读全文

摘要： SQLServer 分页查询 方式 TOP 子句 -- 每页20条记录，第1页 select top 20 * from tceshi order by ID -- 第2页（返回ID不是前20条记录） select top 20 * from tceshi where ID not in(selec 阅读全文

摘要： Panel和PageControl中加载窗体 代码 Panel中载入窗体 procedure TForm1.Button1Click(Sender: TObject); begin Form2.Parent := Panel1; Form2.Align := alClient; Form2.Bord 阅读全文

摘要： SQLServer BCP批量导入导出数据 语法 bcp [database_name.] schema.{table_name | view_name | "query"} {in data_file | out data_file | queryout data_file | format nu 阅读全文