![](https://img-blog.csdnimg.cn/20201014180756738.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
RAD
~历史的天空
这个作者很懒,什么都没留下…
展开
-
unidac自动创建SQLite数据库,并且执行sql创建表
转自CSDN博主「wqc159」的原创文章原文链接:https://blog.csdn.net/wqc159/article/details/102980869UniConnection1.ConnectString := 'Provider Name=SQLite;Direct=True;Client Library=sqlite3'; UniConnection1.Database := '.\SQLite.DB'; if not FileExists(UniConnection1...转载 2021-12-06 14:26:35 · 441 阅读 · 0 评论 -
【经验】delphi 右键删除dbgrid行
Delphi DBGrid右键删除行并提交至数据库.在form上添加,控件TPopupMenu,并指定右键名称:删行2.编写删除语句: If ADOQuery1.State in [dsEdit, dsInsert] then ADOQuery1.Post; If ADOQuery1.RecordCount <> 0 then ADOQuery1.Del...转载 2019-03-08 10:38:47 · 713 阅读 · 0 评论 -
【经验】delphi模式窗体给主窗体传值
本文来自于:http://hi.baidu.com/cszhi/blog/item/18f1533bcb089ded14cecb4b.html思路:模式对话框:unit ModuleForm type TModuleForm=class(TForm) Button1:TButton; private ...转载 2019-03-12 11:06:35 · 1129 阅读 · 1 评论 -
【经验】Delphi对Excel的所有操作
一) 使用动态创建的方法首先创建 Excel 对象,使用ComObj:var ExcelApp: Variant;ExcelApp := CreateOleObject( 'Excel.Application' );1) 显示当前窗口:ExcelApp.Visible := True;2) 更改 Excel 标题栏:ExcelApp.Caption := '应用程序调用 Mi...转载 2019-03-20 11:15:54 · 1485 阅读 · 0 评论 -
【经验】Delphi字符串加密解密函数
const XorKey: array[0..7] of Byte = ($B2, $09, $BB, $55, $93, $6D, $44, $47); //字符串加密用 function Enc(Str: string): string; //字符加密函數 這是用的一個異或加密 var i, j: Integer; begin Result :=...转载 2019-03-04 21:30:51 · 1036 阅读 · 0 评论 -
【函数】Delphi中补齐字符串长度
函数功能:当Str不满Len长度时,在Str前自动填充FillStr以补足长度function FillString(const Str: string; Len: Integer; FillStr: Char): string;begin Result:= StringOfChar(FillStr, Len - Length(Str)) + Str;end;使用方法:jk...转载 2019-03-10 13:14:26 · 1535 阅读 · 1 评论 -
【经验】Delphi INI文件保存与读取
//需要引用IniFilesuses system.IniFiles;//保存INI配置文件procedure TForm1.btnSaveClick(Sender: TObject);var myIniFile: TIniFile; filepath: string;begin filepath := ExtractFilePath(Application.Exen...转载 2019-03-03 15:50:39 · 554 阅读 · 0 评论 -
【经验】delphi 列表组件ComboBox
delphi列表组件ComboBoxTComboBox组件的重要属性CharCase--------此属性用于设置编辑框内文字的大小写DropDownCount---此属性用于设置当用户下拉组合框时不需要加滚动条就能显示的项的个数DroppedDown-----如组合框当前被下拉,此属性返回TrueItemHeight------此属性用于设置项的高度ItemIndex------...转载 2019-03-02 21:53:11 · 8864 阅读 · 0 评论 -
【函数】简单的加密解密函数
function EncString(Source, Key: string): string;// 对字符串加密(Source:源 Key:密匙)varKeyLen: integer;KeyPos: integer;Offset: integer;Dest: string;SrcPos: integer;SrcAsc: integer;Range: integer;begi...转载 2019-03-05 17:08:50 · 2105 阅读 · 0 评论 -
【经验】Delphi ListView基本用法大全
//增加项或列(字段)ListView1.Clear;ListView1.Columns.Clear;ListView1.Columns.Add;ListView1.Columns.Add;ListView1.Columns.Add;ListView1.Columns.Items[0].Caption:=&apos;id&apos;;ListView1.Colum...转载 2019-03-05 12:52:31 · 1809 阅读 · 0 评论 -
[经验]ADOQUERY使用记录
//查询记录 procedure TForm1.Button1Click(Sender: TObject); begin ADOQuery.Close; ADOQuery.SQL.Clear; ADOQuery.SQL.Add('select * from YourTABLE where 查询条件'); ADOQuery.Open; //插入记录 proc...转载 2019-03-01 17:53:31 · 1063 阅读 · 0 评论 -
【经验】Delphi 分辨千位、百位、十位和个位数值
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Label1: TLabel; Label2: TLabel;...转载 2019-03-05 09:12:19 · 753 阅读 · 0 评论 -
[经验]radiogroup的用法
//当点击 RadioGroup 中的第几个选项时...procedure TForm1.RadioGroup1Click(Sender: TObject);var str: string;begin case RadioGroup1.ItemIndex of 0: str := 'one'; 1: str := 'two'; 2: str...转载 2019-03-01 17:33:55 · 1858 阅读 · 0 评论 -
[函数]身份证有效性验证函数
转function ValidatePID//本文来自Delphi之窗,http://www.52delphi.comfunction ValidatePID(const APID: string): string; {内部函数,取身份证号校验位,最后一位,对18位有效} function GetVerifyBit(sIdentityNum: string): Char;...转载 2019-03-01 10:47:06 · 1633 阅读 · 0 评论 -
[经验]delphi下RZchenklist控件水平(横向)方法
属性columns中设置具体栏目数即可原创 2019-03-01 09:30:21 · 557 阅读 · 0 评论 -
人民币小写转大写函数和引用方法
转一个函数,好用的。function changeRmb(const strRmb:string):string;var txt,strhighlevel:string; i,n,m,ilen,ipos:Integer; //n记录整数部分长度,m记录分数部分长度 strarray,strlevel:array of string; p:pchar; isp...转载 2019-03-01 09:25:27 · 1550 阅读 · 0 评论