博客园 - 马儿快跑
uuid:24b78886-0ed1-41c2-8670-e3f31dcf42c4;id=47464
2017-12-27T02:26:49Z
马儿快跑
https://www.cnblogs.com/ywangzi/
feed.cnblogs.com
https://www.cnblogs.com/ywangzi/archive/2013/01/06/2847441.html
delphi2010中使用pchar时E2010 Incompatible types: 'Char' and 'AnsiChar' 错误的处理 - 马儿快跑
在网上搜了一个ping函数,用到pchar(string),编译时出现这个错误,其实以前也碰到这个问题:delphi7版本中的Pcharh函数在delphi2010中使用时,编译时出现错误:E2010 Incompatible types: 'Char' and 'AnsiChar'这时可以这样使用:PAnsiChar(AnsiString(string)); 说明:在delpin中之前,Char对应的是AnsiChar,PChar对应PAnsiChar,string(未映射成老的ShortString)对应AnsiString;而在delphi2010里,对应
2013-01-06T03:41:00Z
2013-01-06T03:41:00Z
马儿快跑
https://www.cnblogs.com/ywangzi/
【摘要】在网上搜了一个ping函数,用到pchar(string),编译时出现这个错误,其实以前也碰到这个问题:delphi7版本中的Pcharh函数在delphi2010中使用时,编译时出现错误:E2010 Incompatible types: 'Char' and 'AnsiChar'这时可以这样使用:PAnsiChar(AnsiString(string)); 说明:在delpin中之前,Char对应的是AnsiChar,PChar对应PAnsiChar,string(未映射成老的ShortString)对应AnsiString;而在delphi2010里,对应 <a href="https://www.cnblogs.com/ywangzi/archive/2013/01/06/2847441.html" target="_blank">阅读全文</a>
https://www.cnblogs.com/ywangzi/archive/2012/12/27/2835266.html
Delphi修改Access密码,压缩与修复,建立Access数据库文件 - 马儿快跑
1 unit UAccessOperate; 2 3 interface 4 5 uses Windows, Sysutils, ComObj, Dialogs, ActiveX; 6 7 8 9 //修改ACCESS数据库密码 10 function ChangeDatabasePassword(AFileName,AOldPassWord,ANewPassWord:string):boolean; 11 12 //压缩与修复数据库,覆盖源文件 13 function CompactDatabase(AFileName,APassWord:string):bool...
2012-12-27T02:38:00Z
2012-12-27T02:38:00Z
马儿快跑
https://www.cnblogs.com/ywangzi/
【摘要】1 unit UAccessOperate; 2 3 interface 4 5 uses Windows, Sysutils, ComObj, Dialogs, ActiveX; 6 7 8 9 //修改ACCESS数据库密码 10 function ChangeDatabasePassword(AFileName,AOldPassWord,ANewPassWord:string):boolean; 11 12 //压缩与修复数据库,覆盖源文件 13 function CompactDatabase(AFileName,APassWord:string):bool... <a href="https://www.cnblogs.com/ywangzi/archive/2012/12/27/2835266.html" target="_blank">阅读全文</a>
https://www.cnblogs.com/ywangzi/archive/2012/12/19/2824395.html
获取硬盘序列号(IDE,SATA,SCSI) - 马儿快跑
{获取SCSI硬盘出厂系列号需要系统管理员权限,不支持磁盘阵列这里只取了第0个或第1个硬盘的序列号}function GetScsiSerialNumber(const i: smallint): string;typeTScsiPassThrough =recordLength: Word;ScsiStatus: Byte;PathId: Byte;TargetId: Byte;Lun: Byte;CdbLength: Byte;SenseInfoLength: Byte;DataIn: Byte;DataTransferLength: ULONG;TimeOutValue: ULONG;D
2012-12-19T00:58:00Z
2012-12-19T00:58:00Z
马儿快跑
https://www.cnblogs.com/ywangzi/
【摘要】{获取SCSI硬盘出厂系列号需要系统管理员权限,不支持磁盘阵列这里只取了第0个或第1个硬盘的序列号}function GetScsiSerialNumber(const i: smallint): string;typeTScsiPassThrough =recordLength: Word;ScsiStatus: Byte;PathId: Byte;TargetId: Byte;Lun: Byte;CdbLength: Byte;SenseInfoLength: Byte;DataIn: Byte;DataTransferLength: ULONG;TimeOutValue: ULONG;D <a href="https://www.cnblogs.com/ywangzi/archive/2012/12/19/2824395.html" target="_blank">阅读全文</a>
https://www.cnblogs.com/ywangzi/archive/2012/12/12/2815219.html
Delphi进制转换(二进制/十进制/十六进制) - 马儿快跑
Delphi进制转换(二进制/十进制/十六进制) 2009-11-27 11:42:24| 分类: 计算机知识 | 标签: |字号大中小 订阅 .Delphi进制转换(二进制/十进制/十六进制)2008-08-29 10:24一、完全用API完成:..uses Windows;function IntToStr(I: integer): string;begin Str(I, Result);end;function StrToInt(S: string): integer;beginVal(S, Result, Result);end;function HexToInt(Const HexV
2012-12-12T11:14:00Z
2012-12-12T11:14:00Z
马儿快跑
https://www.cnblogs.com/ywangzi/
【摘要】Delphi进制转换(二进制/十进制/十六进制) 2009-11-27 11:42:24| 分类: 计算机知识 | 标签: |字号大中小 订阅 .Delphi进制转换(二进制/十进制/十六进制)2008-08-29 10:24一、完全用API完成:..uses Windows;function IntToStr(I: integer): string;begin Str(I, Result);end;function StrToInt(S: string): integer;beginVal(S, Result, Result);end;function HexToInt(Const HexV <a href="https://www.cnblogs.com/ywangzi/archive/2012/12/12/2815219.html" target="_blank">阅读全文</a>
https://www.cnblogs.com/ywangzi/archive/2012/12/07/2806590.html
DELPHI获取网卡MAC地址 转 - 马儿快跑
1、通过IP取MAC地址usesWinSock;Function sendarp(ipaddr:ulong;temp:dword;ulmacaddr:pointer;ulmacaddrleng:pointer) : DWord; StdCall; External 'Iphlpapi.dll' Name 'SendARP';procedure TForm1.Button1Click(Sender: TObject);varmyip:ulong;mymac:array[0..5] of byte;mymaclength:ulong;r:integer;beginm
2012-12-07T01:43:00Z
2012-12-07T01:43:00Z
马儿快跑
https://www.cnblogs.com/ywangzi/
【摘要】1、通过IP取MAC地址usesWinSock;Function sendarp(ipaddr:ulong;temp:dword;ulmacaddr:pointer;ulmacaddrleng:pointer) : DWord; StdCall; External 'Iphlpapi.dll' Name 'SendARP';procedure TForm1.Button1Click(Sender: TObject);varmyip:ulong;mymac:array[0..5] of byte;mymaclength:ulong;r:integer;beginm <a href="https://www.cnblogs.com/ywangzi/archive/2012/12/07/2806590.html" target="_blank">阅读全文</a>
https://www.cnblogs.com/ywangzi/archive/2012/12/06/2805532.html
【转】编程的朋友们用的着的键盘键值汇总 - 马儿快跑
键盘键值汇总功能键键值 ESC键: (27) 回车键: (13) TAB键: (9) CapsLock键: (20) Shift键: ($10) Ctrl键: (17) Alt键: (18) 空格键: ($20/32) 退格键: (8) 左徽标键: (91) 右徽标键: (92) 鼠标右键快捷键: (93) Insert键: (45) Home键: (36) PageUp: (33) PageDown: (34) End键: (35) Delete键: (46) 方向键(←): (37) 方向键(↑): (38) 方向键(→): (39) 方向键(↓): (40) 快捷键键值 F1键: (11
2012-12-06T09:45:00Z
2012-12-06T09:45:00Z
马儿快跑
https://www.cnblogs.com/ywangzi/
【摘要】键盘键值汇总功能键键值 ESC键: (27) 回车键: (13) TAB键: (9) CapsLock键: (20) Shift键: ($10) Ctrl键: (17) Alt键: (18) 空格键: ($20/32) 退格键: (8) 左徽标键: (91) 右徽标键: (92) 鼠标右键快捷键: (93) Insert键: (45) Home键: (36) PageUp: (33) PageDown: (34) End键: (35) Delete键: (46) 方向键(←): (37) 方向键(↑): (38) 方向键(→): (39) 方向键(↓): (40) 快捷键键值 F1键: (11 <a href="https://www.cnblogs.com/ywangzi/archive/2012/12/06/2805532.html" target="_blank">阅读全文</a>
https://www.cnblogs.com/ywangzi/archive/2012/12/06/2805129.html
delphi定义结构体 - 马儿快跑
//结构体的比较普遍的两用法,具体还是得靠多看例子,帮助等。//1.作为一个对象结构型使用typeTclassRecord=recordrDate:string;rTime:string;end;//2.作为记录类型(数据协议解析时比较多使用,灵活方便)//首先枚举几种数据类型typeTDateType=(TFullData,TRedDate,TReadTime);typeTtextRecord=recordcasei:TDateTypeof//FullData与下面所有的变量,共享同一个内存区域,各个子类自己定义就可以了,i并无实际意义。//TtextRecord作为一个字符串的形式存在内存
2012-12-06T07:32:00Z
2012-12-06T07:32:00Z
马儿快跑
https://www.cnblogs.com/ywangzi/
【摘要】//结构体的比较普遍的两用法,具体还是得靠多看例子,帮助等。//1.作为一个对象结构型使用typeTclassRecord=recordrDate:string;rTime:string;end;//2.作为记录类型(数据协议解析时比较多使用,灵活方便)//首先枚举几种数据类型typeTDateType=(TFullData,TRedDate,TReadTime);typeTtextRecord=recordcasei:TDateTypeof//FullData与下面所有的变量,共享同一个内存区域,各个子类自己定义就可以了,i并无实际意义。//TtextRecord作为一个字符串的形式存在内存 <a href="https://www.cnblogs.com/ywangzi/archive/2012/12/06/2805129.html" target="_blank">阅读全文</a>
https://www.cnblogs.com/ywangzi/archive/2012/11/29/2794676.html
获取计算机标识 - 马儿快跑
function GetIdeNum String;type TSrbIoControl = packed record HeaderLength ULONG; Signature Array[0..7] of Char; Timeout ULONG; ControlCode ULONG; ReturnCode ULONG; Length ULONG;end;SRB_IO_CONTROL = TSrbIoControl;PSrbIoControl = ^TSrbIoControl;TIDERegs = packed record bFeaturesReg Byte; bSectorCountR
2012-11-29T06:59:00Z
2012-11-29T06:59:00Z
马儿快跑
https://www.cnblogs.com/ywangzi/
【摘要】function GetIdeNum String;type TSrbIoControl = packed record HeaderLength ULONG; Signature Array[0..7] of Char; Timeout ULONG; ControlCode ULONG; ReturnCode ULONG; Length ULONG;end;SRB_IO_CONTROL = TSrbIoControl;PSrbIoControl = ^TSrbIoControl;TIDERegs = packed record bFeaturesReg Byte; bSectorCountR <a href="https://www.cnblogs.com/ywangzi/archive/2012/11/29/2794676.html" target="_blank">阅读全文</a>
https://www.cnblogs.com/ywangzi/archive/2012/11/28/2793086.html
十进制转换成BCD码函数 - 马儿快跑
usesIdGlobal 十进制转换成BCD码函数 functionTForm1.inttobcd(x:Integer):string; vars,s1:string; i,j,x1:Integer; begins:=IntToStr(x); i:=Length(s); result:=''; forj:=1toidobeginx1:=StrToInt(s[j]); s1:=inttobin(x1); s1:=Copy(s1,Length(s1)-3,4); result:=result+s1; end; end;
2012-11-28T09:36:00Z
2012-11-28T09:36:00Z
马儿快跑
https://www.cnblogs.com/ywangzi/
【摘要】usesIdGlobal 十进制转换成BCD码函数 functionTForm1.inttobcd(x:Integer):string; vars,s1:string; i,j,x1:Integer; begins:=IntToStr(x); i:=Length(s); result:=''; forj:=1toidobeginx1:=StrToInt(s[j]); s1:=inttobin(x1); s1:=Copy(s1,Length(s1)-3,4); result:=result+s1; end; end; <a href="https://www.cnblogs.com/ywangzi/archive/2012/11/28/2793086.html" target="_blank">阅读全文</a>
https://www.cnblogs.com/ywangzi/archive/2012/11/14/2769823.html
Delphi中对BCD码的直接支持 . - 马儿快跑
最近在Delphi下写软件,需要将数据转换为BCD码和将BCD码转换为其它数据类型,从网上搜索了一下,没有发现好的函数,于是就想自定义函数来完成BCD与其它格式的数据转换功能。但最终没有动手写,先查查Delphi的帮助吧。结果一查才发现Delphi还真的直接支持BCD码的数据。现将Delphi对BCD码的支持资料大致介绍一番: 首先,Delphi支持的BCD码的数据类型名为TBCD,它的定义如下:type TBcd = packed record Precision: Byte; { 精度,1..64 } SignSpecialPlaces: Byte; { 符号位等信息的组合,按位表示,D.
2012-11-14T06:04:00Z
2012-11-14T06:04:00Z
马儿快跑
https://www.cnblogs.com/ywangzi/
【摘要】最近在Delphi下写软件,需要将数据转换为BCD码和将BCD码转换为其它数据类型,从网上搜索了一下,没有发现好的函数,于是就想自定义函数来完成BCD与其它格式的数据转换功能。但最终没有动手写,先查查Delphi的帮助吧。结果一查才发现Delphi还真的直接支持BCD码的数据。现将Delphi对BCD码的支持资料大致介绍一番: 首先,Delphi支持的BCD码的数据类型名为TBCD,它的定义如下:type TBcd = packed record Precision: Byte; { 精度,1..64 } SignSpecialPlaces: Byte; { 符号位等信息的组合,按位表示,D. <a href="https://www.cnblogs.com/ywangzi/archive/2012/11/14/2769823.html" target="_blank">阅读全文</a>
https://www.cnblogs.com/ywangzi/archive/2012/11/08/2760160.html
combobox 多列显示 - 马儿快跑
第三方控件EHLIB中的dblookupcomboboxeh,给它的ListSource指定一个数据源,然后它有一个listField属性,要什么列就可以写在那里,然后用";"分隔开来,就可以有这样的效果了,Form1.DBLookupComboboxEh1.ListSource:=DataModule1.DataSource1;Form1.DBLookupComboboxEh1.ListField:='编号;名称';//要显示的列Form1.DBLookupComboboxEh1.KeyField:='编号';//实际的值Form1.DBL
2012-11-08T04:23:00Z
2012-11-08T04:23:00Z
马儿快跑
https://www.cnblogs.com/ywangzi/
【摘要】第三方控件EHLIB中的dblookupcomboboxeh,给它的ListSource指定一个数据源,然后它有一个listField属性,要什么列就可以写在那里,然后用";"分隔开来,就可以有这样的效果了,Form1.DBLookupComboboxEh1.ListSource:=DataModule1.DataSource1;Form1.DBLookupComboboxEh1.ListField:='编号;名称';//要显示的列Form1.DBLookupComboboxEh1.KeyField:='编号';//实际的值Form1.DBL <a href="https://www.cnblogs.com/ywangzi/archive/2012/11/08/2760160.html" target="_blank">阅读全文</a>
https://www.cnblogs.com/ywangzi/archive/2012/11/07/2759090.html
Delphi2010 DBExpress+MySQL 程序的打包 - 马儿快跑
Delphi2010 DBExpress+MySQL 程序的打包delphi链接mysql数据库可以用TSimpleDataSet+TSQLConnection控件1) TSQLConnection设置: ConnectionName: MySQLConnectionDriver->HostName一般是localhostDatabase: 所要用到的数据名2)TSimpleDataset设置:Connection: 选择SQLConnection1Dataset里点击CommandText会出现所选Database的table field列表, 点击生成sql语句3) 设置完这个TSi
2012-11-07T08:43:00Z
2012-11-07T08:43:00Z
马儿快跑
https://www.cnblogs.com/ywangzi/
【摘要】Delphi2010 DBExpress+MySQL 程序的打包delphi链接mysql数据库可以用TSimpleDataSet+TSQLConnection控件1) TSQLConnection设置: ConnectionName: MySQLConnectionDriver->HostName一般是localhostDatabase: 所要用到的数据名2)TSimpleDataset设置:Connection: 选择SQLConnection1Dataset里点击CommandText会出现所选Database的table field列表, 点击生成sql语句3) 设置完这个TSi <a href="https://www.cnblogs.com/ywangzi/archive/2012/11/07/2759090.html" target="_blank">阅读全文</a>
https://www.cnblogs.com/ywangzi/archive/2012/11/07/2759082.html
MySql绿色库(无需安装) 可以由打包工具直接打包 - 马儿快跑
将MySQL全部的安装备份目录拷贝到目标目录 打开MySQL的安装目录里my.ini,确保basedir和datadir的路径是你MySQL目标目录的路径 basedir="C:/Program Files/MySQL/MySQL Server 5.0/" datadir="C:/Program Files/MySQL/MySQL Server 5.0/Data/" 将以下路径改为MySQL的目标路径,注意其中的双引号,内容存为reg.reg文件,双击导入注册表 Windows Registry Editor Version 5.00 [HKEY_LOC
2012-11-07T08:41:00Z
2012-11-07T08:41:00Z
马儿快跑
https://www.cnblogs.com/ywangzi/
【摘要】将MySQL全部的安装备份目录拷贝到目标目录 打开MySQL的安装目录里my.ini,确保basedir和datadir的路径是你MySQL目标目录的路径 basedir="C:/Program Files/MySQL/MySQL Server 5.0/" datadir="C:/Program Files/MySQL/MySQL Server 5.0/Data/" 将以下路径改为MySQL的目标路径,注意其中的双引号,内容存为reg.reg文件,双击导入注册表 Windows Registry Editor Version 5.00 [HKEY_LOC <a href="https://www.cnblogs.com/ywangzi/archive/2012/11/07/2759082.html" target="_blank">阅读全文</a>
https://www.cnblogs.com/ywangzi/archive/2012/10/29/2744350.html
Delphi - 简单10进制转2进制的函数 - 马儿快跑
Delphi - 简单10进制转2进制的函数 技术交流,DH讲解.昨晚半夜1点多,有个朋友来问这个问题.想了下,先打算偷懒,让他先用IntToHex转16进制,然后1位16进制对应4位二进制.后来想了下这样做,太不该了.于是自己随手写了个函数:我们只要对位运算熟悉就可以了,我们一位一位的去判断是0还是1就可以了.为了避免String引起的效率问题,我们直接用Array[0..31] of Char.Type TBinString = Array[ 0..31 ] Of Char ; Function IntToBin( N: Integer ): TBinString ; Const Bin.
2012-10-29T02:44:00Z
2012-10-29T02:44:00Z
马儿快跑
https://www.cnblogs.com/ywangzi/
【摘要】Delphi - 简单10进制转2进制的函数 技术交流,DH讲解.昨晚半夜1点多,有个朋友来问这个问题.想了下,先打算偷懒,让他先用IntToHex转16进制,然后1位16进制对应4位二进制.后来想了下这样做,太不该了.于是自己随手写了个函数:我们只要对位运算熟悉就可以了,我们一位一位的去判断是0还是1就可以了.为了避免String引起的效率问题,我们直接用Array[0..31] of Char.Type TBinString = Array[ 0..31 ] Of Char ; Function IntToBin( N: Integer ): TBinString ; Const Bin. <a href="https://www.cnblogs.com/ywangzi/archive/2012/10/29/2744350.html" target="_blank">阅读全文</a>
https://www.cnblogs.com/ywangzi/archive/2012/10/23/2734856.html
TChart的用法 - 马儿快跑
TChart是一个功能强大的绘制各种数据图表的控件,使用它可以很方便的绘制出各种数据图表。下面就来详细介绍它的使用。 常用属性:AxisVisible:Bool型用于显示或隐藏图表上的四个坐标轴以及显示区域的曲线框BufferDisplay:Bool型默认为Ture.可以提高图像的显示速度消除闪烁MaxPointPerpage:默认为0,用来设置每页可以显示的点的数量,设置了该属性之后,除最后一页外,每页都是以固定的点数显示。(页:表示的是TChart的大小)SeriesList:该属性为一指针数组,指向的是TChart中的Series。获得TChart中的Serries数组,也有三种方法 .
2012-10-23T00:59:00Z
2012-10-23T00:59:00Z
马儿快跑
https://www.cnblogs.com/ywangzi/
【摘要】TChart是一个功能强大的绘制各种数据图表的控件,使用它可以很方便的绘制出各种数据图表。下面就来详细介绍它的使用。 常用属性:AxisVisible:Bool型用于显示或隐藏图表上的四个坐标轴以及显示区域的曲线框BufferDisplay:Bool型默认为Ture.可以提高图像的显示速度消除闪烁MaxPointPerpage:默认为0,用来设置每页可以显示的点的数量,设置了该属性之后,除最后一页外,每页都是以固定的点数显示。(页:表示的是TChart的大小)SeriesList:该属性为一指针数组,指向的是TChart中的Series。获得TChart中的Serries数组,也有三种方法 . <a href="https://www.cnblogs.com/ywangzi/archive/2012/10/23/2734856.html" target="_blank">阅读全文</a>
https://www.cnblogs.com/ywangzi/archive/2012/10/19/2730948.html
delphi获取目录下所有文件名 - 马儿快跑
procedure searchfile(path:string);//注意,path后面要有'\'; var SearchRec:TSearchRec; found:integer; begin found:=FindFirst(path+'*.*',faAnyFile,SearchRec); while found=0 do begin if (SearchRec.Name<>'.') and (SearchRec.Name<>'..') and (SearchRec.Attr<>faDir
2012-10-19T05:52:00Z
2012-10-19T05:52:00Z
马儿快跑
https://www.cnblogs.com/ywangzi/
【摘要】procedure searchfile(path:string);//注意,path后面要有'\'; var SearchRec:TSearchRec; found:integer; begin found:=FindFirst(path+'*.*',faAnyFile,SearchRec); while found=0 do begin if (SearchRec.Name<>'.') and (SearchRec.Name<>'..') and (SearchRec.Attr<>faDir <a href="https://www.cnblogs.com/ywangzi/archive/2012/10/19/2730948.html" target="_blank">阅读全文</a>
https://www.cnblogs.com/ywangzi/archive/2012/10/18/2729849.html
Access 数据导入mysql - 马儿快跑
嗯,多简单的事呀。。。不过是SQL语句的导入导出嘛。。。我开始真的是这么想的。。。 做的时候发现,Access没有导出SQL的功能,不想用第三方的东西。。。这里简单描述下我是怎么做的吧!1、在access中建个视图,得到自己想要的数据;2、把这个视图查询到的数据,导出成文本格式,我用的是CVS;3、用文本编辑器,把导出的数据 处理成 SQL语句(多亏了vim,用其他编辑器都不知道怎么办才好,打开都成问题,更不用说快速编辑了。。。UE打开后,滚轮都滚不动的说。。。);4、用mysql命令,导入mysql。思路很清晰,我就这么做了。直到最后一步,才发现问题:数据量太大(68万条),这一步很慢很慢。
2012-10-18T09:32:00Z
2012-10-18T09:32:00Z
马儿快跑
https://www.cnblogs.com/ywangzi/
【摘要】嗯,多简单的事呀。。。不过是SQL语句的导入导出嘛。。。我开始真的是这么想的。。。 做的时候发现,Access没有导出SQL的功能,不想用第三方的东西。。。这里简单描述下我是怎么做的吧!1、在access中建个视图,得到自己想要的数据;2、把这个视图查询到的数据,导出成文本格式,我用的是CVS;3、用文本编辑器,把导出的数据 处理成 SQL语句(多亏了vim,用其他编辑器都不知道怎么办才好,打开都成问题,更不用说快速编辑了。。。UE打开后,滚轮都滚不动的说。。。);4、用mysql命令,导入mysql。思路很清晰,我就这么做了。直到最后一步,才发现问题:数据量太大(68万条),这一步很慢很慢。 <a href="https://www.cnblogs.com/ywangzi/archive/2012/10/18/2729849.html" target="_blank">阅读全文</a>
https://www.cnblogs.com/ywangzi/archive/2012/10/18/2729608.html
修改mysql数据库名称 - 马儿快跑
假如源数据库名称为“srcdb”,目标数据库名称为"trgdb"首先创建目标数据库:create database trgdb;查看源数据库中的所有表名:use information_schema;select table_name from TABLES where TABLE_SCHEMA= ‘srcdb’;针对上面查询出来的表名,依次执行以下命令:rename table srcdb.tablename1 to trgdb.tablename1;这样源数据库srcdb中的表(表结构和表数据)就被全部迁移到目标数据库trgdb了。
2012-10-18T07:34:00Z
2012-10-18T07:34:00Z
马儿快跑
https://www.cnblogs.com/ywangzi/
【摘要】假如源数据库名称为“srcdb”,目标数据库名称为"trgdb"首先创建目标数据库:create database trgdb;查看源数据库中的所有表名:use information_schema;select table_name from TABLES where TABLE_SCHEMA= ‘srcdb’;针对上面查询出来的表名,依次执行以下命令:rename table srcdb.tablename1 to trgdb.tablename1;这样源数据库srcdb中的表(表结构和表数据)就被全部迁移到目标数据库trgdb了。 <a href="https://www.cnblogs.com/ywangzi/archive/2012/10/18/2729608.html" target="_blank">阅读全文</a>
https://www.cnblogs.com/ywangzi/archive/2012/10/16/2726480.html
delphi 添加xml cdata - 马儿快跑
doc := LoadXMLData('<?xml version="1.0" encoding="GBK"?><root/>'); doc.Active := true; root := doc.DocumentElement; _node:=root.AddChild('a'); vNode:=doc.CreateNode('abc',ntCData,'xxxx'); _node.ChildNodes.Add(vNode);
2012-10-16T10:12:00Z
2012-10-16T10:12:00Z
马儿快跑
https://www.cnblogs.com/ywangzi/
【摘要】doc := LoadXMLData('<?xml version="1.0" encoding="GBK"?><root/>'); doc.Active := true; root := doc.DocumentElement; _node:=root.AddChild('a'); vNode:=doc.CreateNode('abc',ntCData,'xxxx'); _node.ChildNodes.Add(vNode); <a href="https://www.cnblogs.com/ywangzi/archive/2012/10/16/2726480.html" target="_blank">阅读全文</a>
https://www.cnblogs.com/ywangzi/archive/2012/10/09/2716524.html
Delphi用ini文档实现界面无闪烁多语言转换 - 马儿快跑
越来越多的程序使用了多国语言切换,虽然DELPHI自带多语言包的添加和配置, 但是那种方法在切换语言时界面会出现闪烁,而且实现起来很麻烦,这里我介绍给大家的是利用INI文件来读取界面的语种文字, 用这种方法,不但简单易行,而且在切换的时候不会出现界面的闪烁。 我们从一个例子出发,看看怎么实现语言的切换。首先建立一个新工程。放置如上图的组件: MainMenu1: TMainMenu; File1: TMenuItem; Exit1: TMenuItem; Label1: TLabel; Button1: TButton; CheckBox1: TCheckBox; CheckB...
2012-10-09T04:04:00Z
2012-10-09T04:04:00Z
马儿快跑
https://www.cnblogs.com/ywangzi/
【摘要】越来越多的程序使用了多国语言切换,虽然DELPHI自带多语言包的添加和配置, 但是那种方法在切换语言时界面会出现闪烁,而且实现起来很麻烦,这里我介绍给大家的是利用INI文件来读取界面的语种文字, 用这种方法,不但简单易行,而且在切换的时候不会出现界面的闪烁。 我们从一个例子出发,看看怎么实现语言的切换。首先建立一个新工程。放置如上图的组件: MainMenu1: TMainMenu; File1: TMenuItem; Exit1: TMenuItem; Label1: TLabel; Button1: TButton; CheckBox1: TCheckBox; CheckB... <a href="https://www.cnblogs.com/ywangzi/archive/2012/10/09/2716524.html" target="_blank">阅读全文</a>