- 博客(16)
- 资源 (2)
- 收藏
- 关注
RSS订阅转载 unidac自动创建SQLite数据库，并且执行sql创建表
转自优快云博主「wqc159」的原创文章 原文链接：https://blog.youkuaiyun.com/wqc159/article/details/102980869 UniConnection1.ConnectString := 'Provider Name=SQLite;Direct=True;Client Library=sqlite3'; UniConnection1.Database := '.\SQLite.DB'; if not FileExists(UniConnection1...
2021-12-06 14:26:35
594
转载 【经验】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
1693
转载 【经验】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
1265
1
转载 【函数】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
1730
1
转载 【经验】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
861
转载 【函数】简单的加密解密函数
function EncString(Source, Key: string): string; // 对字符串加密(Source:源 Key:密匙) var KeyLen: integer; KeyPos: integer; Offset: integer; Dest: string; SrcPos: integer; SrcAsc: integer; Range: integer; begi...
2019-03-05 17:08:50
2243
转载 【经验】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
2099
转载 【经验】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
848
转载 【经验】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
1286
转载 【经验】Delphi INI文件保存与读取
//需要引用IniFiles uses system.IniFiles; //保存INI配置文件 procedure TForm1.btnSaveClick(Sender: TObject); var myIniFile: TIniFile; filepath: string; begin filepath := ExtractFilePath(Application.Exen...
2019-03-03 15:50:39
658
转载 【经验】delphi 列表组件ComboBox
delphi列表组件ComboBox TComboBox组件的重要属性 CharCase--------此属性用于设置编辑框内文字的大小写 DropDownCount---此属性用于设置当用户下拉组合框时不需要加滚动条就能显示的项的个数 DroppedDown-----如组合框当前被下拉，此属性返回True ItemHeight------此属性用于设置项的高度 ItemIndex------...
2019-03-02 21:53:11
9701
转载 [经验]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
1169
转载 [经验]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
2052
转载 [函数]身份证有效性验证函数
转 function ValidatePID //本文来自Delphi之窗，http://www.52delphi.com function ValidatePID(const APID: string): string; {内部函数,取身份证号校验位,最后一位,对18位有效} function GetVerifyBit(sIdentityNum: string): Char; ...
2019-03-01 10:47:06
1790
转载 人民币小写转大写函数和引用方法
转一个函数，好用的。 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
1641
wordpress-5.2.2-zh_CN.zip
2019-08-09
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人