02 2024 档案
摘要: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
阅读全文