2019年3月11日
delphi 拷贝文件时有进度显示
摘要： procedure TForm1.mycopyfile(sourcef,targetf:string);varFromF, ToF: file;NumRead, NumWritten: Integer;Buf: array[1..2048] of Char;n:integer;begin Assig 阅读全文
posted @ 2019-03-11 17:27 YJCCN 阅读(518) 评论(0) 推荐(0)
Delphi 连接mysql的功能,去除乱码, 需要设置字符集
摘要： vDataBaseName := aConfiginiFile.ReadString('DataBaseConfig', 'DataBase', CH_IPC712Db); vServer := aConfiginiFile.ReadString('DataBaseConfig', 'Server' 阅读全文
posted @ 2019-03-11 16:33 YJCCN 阅读(367) 评论(0) 推荐(0)