2015 年 9月 5 日随笔档案 - 雪夜

2015年9月5日

摘要： 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 雪夜阅读(1053) 评论(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 雪夜阅读(660) 评论(0) 推荐(0) 编辑