摘要：
用delphi的idhttp Get一个url如下： http://117.135.237.4:9090/agent/api/treatmentModeUpdate?userName=VDAwMIMQ==&userPwd=VDAjIxMQ==¢erNo=NTIyMj2&hospCode=Nz 阅读全文
摘要：
做服务端，很多人已经淘汰用delphi了，确实，各种中文乱码的问题，也有人劝过我用JavaScript，很简单，连源码都给我了，但是还没时间研究，眼前有个项目，必须提供一个服务供第三方调用，请求方式POST，请求格式JSON，当解析请求的json时发现中文乱码。解决方法如下： 上代码： proced 阅读全文
摘要：
1 --建表 2 create table xml_table(id int identity primary key, xmldata xml) 3 --插入数据 4 insert into xml_table(xmldata) values 5 ('<?xml version="1.0" enc 阅读全文
摘要：
--获取英文字符数据 Create function [dbo].[Fun_GetChar] ( @No varchar(100) ) RETURNS varchar(100) AS BEGIN WHILE PATINDEX('%[^A-Za-z]%',@No)>0 BEGIN SET @No=ST 阅读全文
摘要：
begin --申明变量 declare @blh char(10) declare @zycs int --赋值变量 set @blh=1 set @zycs=0 --申明游标 declare order_cursor cursor for (select blh, zycs from zy_brzl)--循环条件 --打开游标-- open order_cursor --开始循环游标变... 阅读全文
摘要：
1.下载安装包，这里提供一个百度云盘共享链接，D7-XE8都有：https://pan.baidu.com/s/1DTlxok4RiSmDokuabnGvQw2.添加环境变量，菜单"Tools"->"Options"->左侧"Environment Options"->"delphi Options 阅读全文
摘要：
(最近记忆力真的不行了，装了很多遍，过段时间重装delphi又不记得了，又要折腾，现在先记录下来，留给下次翻) 1.下载安装包，这里提供一个百度云盘共享链接，版本为fastreport5； https://pan.baidu.com/s/1zLsJBtHgu6cAJWyjpkl8ug 2.解压安装包 阅读全文
摘要：
var Edits: array [0..5] of TEdit; // 把所有的Edit当成是数组procedure TForm1.Button1Click(Sender: TObject);var i, j: integer;begin for i := 0 to ComponentCou... 阅读全文
摘要：
procedure TForm1.ToolButton1Click(Sender: TObject);begin Edit1 := TEdit.Create(Panel1); // 将panel放在Edit控件上,Panel属于Edit Edit1.Parent := self; ... 阅读全文
摘要：
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; var KeyChar: Char; Shift: TShiftState);var i: Boolean;begin i := (keyChar #57) ; if ... 阅读全文