雪夜 - 博客园

2015年9月13日

摘要：翻译：1、解压后把UniDAC文件夹直接复制到你专门用来存放第三方控件的地方（这一步根据自己的喜好，可以跳过这一步）2、在UniDAC\Source\Delphi21文件夹中找到Make.bat文件，鼠标右键“编辑”确认DELPHI XE7的安装路径是否正确（建议：设置成绝对路径了，防止因为环境变量... 阅读全文

posted @ 2015-09-13 23:53 雪夜阅读(3953) 评论(0) 推荐(0) 编辑

Delphi 实现检测线程类TThread是否结束

摘要： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;type TMY = class(TT... 阅读全文

posted @ 2015-09-13 10:18 雪夜阅读(1326) 评论(0) 推荐(0) 编辑

DELPHI线程例子-FC

摘要： {优秀的数据库应用应当充分考虑数据库访问的速度问题。通常可以通过优化数据库、优化查询语句、分页查询等途径收到明显的效果。即使是这样，也不可避免地会在查询时闪现一个带有 SQL符号的沙漏，即鼠标变成了查询等待。最可怜的是用户，他（她）在此时只能无奈地等待。遇到急性子的，干脆在此时尝试 Windows... 阅读全文

posted @ 2015-09-13 10:16 雪夜阅读(385) 评论(0) 推荐(0) 编辑

2015年9月11日

Delphi Stringlist Delimiter如何区分TAB和空格

摘要： var st: TStrings;begin st := TStringList.Create; st.StrictDelimiter := True;//这个多少人用过？ st.Delimiter := ' '; st.DelimitedText := '0 1 2';//用... 阅读全文

posted @ 2015-09-11 19:33 雪夜阅读(1186) 评论(0) 推荐(0) 编辑

2015年9月5日

DBGrid1

摘要： A、ShowMessage(IntToStr(Column.Index)); B、ShowMessage(IntToStr(dbgrid1.SelectedField.Index));1、得到当前格子中的内容：DBGrid1.Fields[DBGrid1.SelectedIndex].Displa... 阅读全文

posted @ 2015-09-05 17:20 雪夜阅读(375) 评论(0) 推荐(0) 编辑

UTF-8 delphi 函数

摘要： unit util_utf8;interfaceuses Windows;typeUTF8String = AnsiString;function AnsiToWide(const S: AnsiString): WideString;function WideToUTF8(const WS: Wi... 阅读全文

posted @ 2015-09-05 15:09 雪夜阅读(1051) 评论(0) 推荐(0) 编辑

未测试 Delphi读写UTF-8、Unicode格式文本文件

摘要： // UTF-8文件写入函数procedure SaveUTFFile(const FileName: string; S: string; WriteHeader: Boolean = True);varMemStream: TMemoryStream;HeaderStr: String;begi... 阅读全文

posted @ 2015-09-05 15:05 雪夜阅读(691) 评论(0) 推荐(0) 编辑

mysql + unidac 使用事务例子

摘要： //备注：mysql必须是使用innoDB引擎才支持事务功能，否则以下事务相关代码将失效。//SQL SERVER和Oracle还没试，明天回公司试了再发代码。procedure TForm1.btn1Click(Sender: TObject);var i, j: Integer;begin ... 阅读全文

posted @ 2015-09-05 13:48 雪夜阅读(658) 评论(0) 推荐(0) 编辑

2015年9月3日

QuickReport FastReport

摘要：一、QuickReport1、安装Component->Install packages->X:/Program Files/Borland/Delphi7/Bin/dclqrt70.bpl->OK，组件栏出现QReport2、使用简单应用举例说明：第一步：工程建立后，在调用报表的窗体加入一个Bu... 阅读全文

posted @ 2015-09-03 20:32 雪夜阅读(529) 评论(0) 推荐(0) 编辑

delphi数据库的备份及还原

摘要：实例应用1：//备份procedure TF_DataBaseBackUp.Btn_bfClick(Sender: TObject);var i:integer;begin if SaveDialog1.Execute then begin ADOConnection1.Connected... 阅读全文

posted @ 2015-09-03 20:31 雪夜阅读(446) 评论(0) 推荐(0) 编辑