- 博客(16)
- 资源 (2)
- 收藏
- 关注
RSS订阅转载 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
466
转载 【经验】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
1510
转载 【经验】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
1148
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
1562
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
734
转载 【函数】简单的加密解密函数
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
2122
转载 【经验】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
1836
转载 【经验】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
769
转载 【经验】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
1067
转载 【经验】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
568
转载 【经验】delphi 列表组件ComboBox
delphi列表组件ComboBoxTComboBox组件的重要属性CharCase--------此属性用于设置编辑框内文字的大小写DropDownCount---此属性用于设置当用户下拉组合框时不需要加滚动条就能显示的项的个数DroppedDown-----如组合框当前被下拉，此属性返回TrueItemHeight------此属性用于设置项的高度ItemIndex------...
2019-03-02 21:53:11
8988
转载 [经验]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
1080
转载 [经验]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
1889
转载 [函数]身份证有效性验证函数
转function ValidatePID//本文来自Delphi之窗，http://www.52delphi.comfunction ValidatePID(const APID: string): string; {内部函数,取身份证号校验位,最后一位,对18位有效} function GetVerifyBit(sIdentityNum: string): Char;...
2019-03-01 10:47:06
1649
转载 人民币小写转大写函数和引用方法
转一个函数，好用的。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
1571
wordpress-5.2.2-zh_CN.zip
2019-08-09
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人