鹅倌的博客_delphi笔记

delphi模拟登陆

实现用代码来登录一个网站，登录用户名、密码的输入及提交按钮的点击事件全部用程序来模拟下面以登录博客园来举例说明http://passport.cnblogs.com/login.aspx一、模拟录入用户名及密码：先将关键代码写出procedureTForm1.btnloginClick(Sender:TObject);varDoc:IHTMLDocument2;userinputelement,p

delphi

转载 2017-11-28 16:38:27 1426 阅读

delphi 导出excel

Var FExcel:OleVariant; //excel应用程序 FWorkBook :OleVariant; //工作表 Temsheet:OleVariant; //工作薄 FPicture:OleVariant;//图片 tmpstr:String; range:variant;//范围 i,j,TemI

delphi

excel

原创 2017-11-17 12:05:00 2099 阅读

delphi使用正则表达式

implementation{$R *.dfm} uses PerlRegEx; //uses 正则表达式单元procedure TForm1.FormCreate(Sender: TObject);var reg: TPerlRegEx; num: Integer; //用 num 来计数begin reg := TPerlRegEx.

delphi

正则

原创 2017-11-09 14:18:14 1517 阅读

读取excel

procedure TfrmBuyingItems.barsaveClick(Sender: TObject); var excelx,excely : string; ExcelApp,WorkBook:oleVariant; ExcelRowCount,i:integer;begin OpenDialog1.Title :=

excel

原创 2017-11-08 08:36:39 767 阅读 1收藏

delphi 导入excel

unit ExcelProUnit;interfacetype TExcelFunction = procedure(asheet: OleVariant); //声明导入函数 {访问单元格：sheet.cells[row,col]转为string：vartostr(sheet.cells[row,col])转为datetime：vartodatetime(sheet.ce

excel

原创 2017-11-08 08:20:58 3792 阅读

delphi ado 连接oracle

Provider=OraOLEDB.Oracle.1;Password=manager;Persist Security Info=True;User ID=swk;Data Source=(DESCRIPTION = (ADDRESS_LIST =(ADDRESS = (PROTOCOL = TCP)(HOST =localhost)(PORT = 1521)))(CONNECT_DATA =(

delphi oracle

原创 2017-08-22 11:27:33 2144 阅读

delphi 进制转换

----二进制到16进制function BinaryToHex(strBinary: string): string;var vD: Byte; i: integer; vHextStr: String; vP: PChar; vLen: integer;begin vLen := length(strBinary);&nb

其他

进制

原创 2017-06-16 14:36:32 2165 阅读

char *转为pansichar

PAnsiChar(AnsiString(order))

其他

char*

原创 2017-06-15 16:24:45 772 阅读

labeledit

var i:Integer;begin for i := 0 to self.ComponentCount - 1 do begin if Self.Components[i] is TLabeledEdit then begin

其他

labeledit

原创 2017-04-29 05:47:55 777 阅读

【delphi】Byte数组与String类型的转换

【delphi】Byte数组与String类型的转换string　　string = AnsiString = 长字符串，理论上长度不受限制，但其实受限于最大寻址范围2的32次方=4G字节；　　变量Str名字是一个指针，指向位于堆内存的字符序列，字符序列起始于@Str[1]，@Str[1]偏移负16个字节的空间存储着字串长度、引用计数等信息。字符序列以NULL结束。string[n]　　strin

【delphi】Byte数组与Strin

转载 2017-01-06 09:36:52 4341 阅读 1收藏

delphi pchar char byte string转换问题

delphi pchar char byte string转换问题注：Delphi中的Char,PChar,PByte,Byte,String的相互转换，您是不是也遇到过，为此头疼过吗？你要是明白了他们的原理就会轻松了。话题064840的标题是： Q:关于PChar的用法 (200分)分类：非技术问题 PTiger (1998-10-19 18:33:00) 我要从tPing

delphi pchar char by

转载 2017-01-06 08:51:48 2539 阅读

十六进制数转为字符串

//-----------------------------------------------//16进制字符转整数,16进制字符与字符串转换中间函数//-----------------------------------------------function HexToInt2(hex: AnsiString): integer;var i: integer; f

十六进制

function

result

原创 2016-11-11 15:25:29 2750 阅读

delphi数据库存储图片

--存 str_sql := 'update photo set photo = :photo '; str_sql := str_sql + ' where sex = ''女'''; with qry_for_show do begin Close; SQL.Clear;&n

其他

cxgrid

原创 2016-06-27 16:48:22 1473 阅读

delphi使用存储过程

with adoProc do begin ProcedureName := 'HOCRM_SCF1_Update'; Parameters.Clear; Parameters.CreateParameter('P1', ftstring, pdInput, 400

delphi

原创 2016-06-07 14:07:24 775 阅读

得到汉字拼音首字母

function py(x: AnsiString): ansichar;begin case word(x[1]) shl 8 +word(x[2]) of $B0A1..$B0C4:result:='A'; $B0C5..$B2C0:result:='B'; $B2C1..$

拼音

delph 汉字

原创 2016-05-21 06:13:24 1074 阅读

delphi 操作文件

var F: Text; //TextFile 和 Text 是一样的---------------------------------- filename := ExtractFilePath(Application.ExeName) + '院感病历导入记录.txt'; if FileExists(f

delphi

textfile

原创 2016-03-23 14:22:02 422 阅读

delphi资源文件制作及使用详解

delphi资源文件制作及使用详解摘自：http://www.ej38.com/showinfo/delphi-131567.html一、引子：现在的Windows应用程序几乎都使用图标、图片、光标、声音等，我们称它们为资源（Resource）。最简单的使用资源的办法是把这些资源的源文件打入软件包，以方便程序需要的时候调用。资源是程序的一部分，程序要正常运行就离不了资源文件。但是它是不可执行代

delphi 资源文件

转载精选 2016-03-16 10:39:44 503 阅读

导入excel

unit ExcelProUnit;interfacetype TExcelFunction = procedure(asheet: OleVariant); //声明导入函数 {访问单元格：sheet.cells[row,col]转为string：vartostr(sheet.cells[row,col])转为datetime：vartodatetime(sheet.ce

excel

ado

导入

原创 2016-03-14 09:55:43 829 阅读

人民币转大写

function changeRmb(const strRmb:string):string;var txt,strhighlevel:string; i,n,m,ilen,ipos:Integer; //n记录整数部分长度，m记录分数部分长度 strarray,strlevel:array of string;&

delphi 人民币

转载精选 2016-02-14 15:39:27 880 阅读

delphi的加密与解密

EncdDecd 单元: EncodeString、DecodeString、EncodeBase64、DecodeBase64uses EncdDecd;const str = '万一的 Delphi 博客'; procedure TForm1.Button1Click(Sender: TObject); var&n

delphi

转载精选 2015-11-28 10:36:58 2236 阅读

cxgrid得到单元格的值

ShowMessage(cxmx.DataController.GetDisplayText(cxmx.Controller.FocusedRowIndex,7));

delphi cxgrid

原创 2015-07-02 21:46:57 2083 阅读

clientdataset 实现分组和索引

if qryformx.Active then qryformx.Close; qryformx.createdataset; qryformx.Open; qryformx.AddIndex('qryformxIndex1','pzh;bm;mc;ybbm;ybmc;sglxbm;sglx;sgysbm;sgy

clientdataset 分组索引

原创 2015-07-02 16:26:23 1269 阅读

delphi locate

locate( 'typeid;name',vararrayof([key1,key2]),[]);

delphi

原创 2015-07-02 14:31:49 1246 阅读

闪烁窗体

if Assigned(WaitFrm)=False then WaitFrm := TWaitFrm.Create(Application) else Application.CreateForm(TWaitFrm,waitfrm); WaitFrm.Show; WaitFr

闪烁窗体

原创 2015-03-21 13:45:42 591 阅读

delphi 操作注册表

uses Registry;procedure TfrmLogin.FormShow(Sender: TObject);var reg: TRegistry;begin Reg := TRegistry.Create; Reg.RootKey := HKEY_CURRENT_USER; Reg.OpenKey('\SOFTWARE\Employees

delphi

registry

操作注册表

原创 2015-02-05 14:13:00 1196 阅读

利用Jsonarray拼接sql

function getjsontoWhereSql(const ajsonarray: TJSONArray): string;var i: Integer; ajsonobject: TJSONObject; afieldname,afieldvalue:string; sqlwherestring:string; afieldope

json

jsonarray

jsonobject

原创 2015-02-03 13:42:52 1333 阅读

delphi webservices传数据

//数据集数据转换为XMLfunction ReplaceString(AString: string): string;begin Result := StringReplace(AString, '&', '&', [rfReplaceAll]);

delphi webservice

转载精选 2015-02-01 20:30:20 595 阅读

IIS7.0报HTTP错误500.0解决办法

HTTP 错误 500.0 - Internal Server Error无法显示页面，因为发生内部服务器错误。经查找，找到解决方法，原来是应用程序池的问题：1、进入IIS中的应用程序池2、选中网站使用的应用程序池名称，然后点击“高级设置”，3、启用32位应用程序池即可！4、在配置IIS7.0 PHP时，出现的关于“配置错误在唯一密钥属性“

delphi webservice

转载精选 2015-01-31 16:05:07 996 阅读

could not bind socket. address and port are already in use

1. cmd2. netstat -ano3. 找到端口4. netstat -ano|findstr "端口"，找到最後一列PID5.继续输入tasklist|findstr "端口"，回车，查看是哪个进程或者程序占用了端口6.任務管理器，查看選擇列找到PID，結束該進程。

socket

port

datasnap

原创 2015-01-28 15:59:05 7445 阅读

datasnap發布

hostname屬性中最好設置為空，然後在配置文件中賦值。conn.params.values[hostname] = ip地址

datasnap

原创 2015-01-28 13:55:55 668 阅读

官方博客	全部文章	热门标签	班级博客
了解我们	网站地图	意见反馈

鸿蒙开发者社区	51CTO学堂
51CTO	软考资讯

51CTO博客

一切有为法，如梦幻泡影

delphi模拟登陆

delphi 导出excel

delphi使用正则表达式

读取excel

delphi 导入excel

delphi ado 连接oracle

delphi 进制转换

char *转为pansichar

labeledit

【delphi】Byte数组与String类型的转换

delphi pchar char byte string转换问题

十六进制数转为字符串

delphi数据库存储图片

delphi使用存储过程

得到汉字拼音首字母

delphi 操作文件

delphi资源文件制作及使用详解

导入excel

人民币转大写

delphi的加密与解密

cxgrid得到单元格的值

clientdataset 实现分组和索引

delphi locate

闪烁窗体

delphi 操作注册表

利用Jsonarray拼接sql

delphi webservices传数据

IIS7.0报HTTP错误500.0解决办法

could not bind socket. address and port are already in use

datasnap發布