![](https://img-blog.csdnimg.cn/20201014180756927.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
Delphi
wqc159
这个作者很懒,什么都没留下…
展开
-
Firedac连接sqlite的例子。
procedure TForm2.Button1Click(Sender: TObject);var Database,s1: string; i:integer; FDConnection : TFDConnection; FDPhysSQLiteDriverLink1: TFDPhysSQLiteDriverLink; FDQuery: TFDQuery; resourcestring sSQLString = 'SELECT * FROM StdItems';beg.原创 2021-09-18 20:15:42 · 625 阅读 · 0 评论 -
解决[FireDAC][DatS]-32. Variable length column [Name] overflow. Value length - [26], column maximum le
Firedac完整报错如下:[FireDAC][DatS]-32.Variablelengthcolumn[Name]overflow.Valuelength-[26],columnmaximumlength-[14]with FDConnection do begin FetchOptions.Mode := fmAll; LoginPrompt := False; Params.Clear; Params.Add('DriverID=...原创 2021-09-18 20:10:44 · 775 阅读 · 0 评论 -
XLSReadWriteII5读去Excel的例子
uses XLSReadWriteII5, Xc12Utils5, XLSSheetData5;procedure TForm3.Button1Click(Sender: TObject);var XLS: TXLSReadWriteII5; C,R ,a ,I: integer; CellType: TXLSCellType; tick:LongWord;begin tick := GetTickCount; XLS := TXLSReadWriteII5.Create(.原创 2021-08-22 20:45:53 · 587 阅读 · 0 评论 -
unidac自动创建SQLite数据库,并且执行sql创建表
UniConnection1.ConnectString := 'Provider Name=SQLite;Direct=True;Client Library=sqlite3'; UniConnection1.Database := '.\SQLite.DB'; if not FileExists(UniConnection1.Database) then begin ...原创 2019-11-08 21:59:35 · 935 阅读 · 0 评论 -
Delphi XE6 安装flash插件步骤,给新手们看
第一步原创 2015-03-02 13:44:34 · 693 阅读 · 0 评论 -
Platform-dependent integer types
Integer TypesAn integer type represents a subset of the integral numbers.Integer types can beplatform-dependentandplatform-independent.Platform-Dependent Integer TypesThe platform-dependent...转载 2019-08-12 21:56:04 · 155 阅读 · 0 评论 -
delphi7升迁delphi xe注意事项
d7 --->dxe6需要修改1.PChar替换成PAnsiChar2.Length(P1) 修改成 Length(P1)*SizeOf(Char) 或者 ByteLength函数计算3.Key in ['a'..'z','B','C']这类代码最好替换成CharInSet(Key,['a'..'z','B','C']) 不然会当作AnsiChar处理。4.代码中的所有Wid...原创 2019-08-12 22:34:28 · 945 阅读 · 0 评论 -
delphi 高版本计算MD5和文件CRC校验码
uses IdHashMessageDigest, IdHashCRC;{ 取文件MD5码 来自别的blog}function GetFileMD5(const iFileName: string): String;var MemSteam: TMemoryStream; MyMD5 : TIdHashMessageDigest5;begin MemSteam :=...原创 2019-08-21 21:29:20 · 626 阅读 · 0 评论