delphi
文章平均质量分 56
滴答丶滴答
看到有人问我dephi的问题,这里统一回复下,很多时间没有做dephi了,然后很少进CSDN
展开
-
delphi调用java的api接口
提交的数据中包含中文,需要进行URL编码:function UrlEncode(const ASrc: string): string;const UnsafeChars = '*#%var i: Integer;begin Result := ''; {Do not Localize} for i := 1 to Length(ASrc) do原创 2017-09-05 15:11:15 · 2493 阅读 · 0 评论 -
delphi 多线程详解及其详解例子
在了解多线程之前我们先了解一下进程和线程的关系一个程序至少有一个主进程,一个进程至少有一个线程。为了保证线程的安全性请大家看看下面介绍 Delphi多线程同步的一些处理方案大家可以参考:http://www.cr173.com/html/16747_1.html主线程又程为UI线程。进程和线程的主要差别在于它们是不同的操作系统资源管理方式。进程有独立的地址空间,一个转载 2017-09-14 09:46:50 · 1522 阅读 · 0 评论 -
delphi多线程例子 采用createThread创建多线程
一、才用createThread创建多线程,需要先声明一个多线程句柄(全局的)如:hThread:THandle;二、声明了一个多相处句柄之后,还需要先写一个函数,在创建多线程是用来掉用的函数。三、使用createThread创建多线程,hThread:=createThread(nil, 0, @MyThreadFun1, nil, CREATE_SUSPENDED, ID);这里线程创原创 2017-09-14 10:24:55 · 2474 阅读 · 0 评论 -
delphi解析json数据的方法
delphi7解析json数据1. 定义一个(TsuperArray的变量) aSuperArray: TSuperArray;(需要引入Ticketservice)2.定义vjson:ISuperObject;(引入Tsuperobject)3.vJson:=so(s1);将json数据加载到vjson中4.第一层key值直接获取 asuperarray:=vjson['Resu原创 2017-11-02 17:13:24 · 13620 阅读 · 0 评论 -
delphi将字符串写入txt文本,每次写入,末尾自动加换行符,不会清空之前的数据
var astr: string; sList: TStrings; path: string;begin sList := TStringList.Create; path :='E:\servercs\openbrake_machine.txt'; try if not DirectoryExists(ExtractFileP原创 2017-10-26 10:39:51 · 3104 阅读 · 0 评论 -
delphi一行一行的读取txt文本的数据
var Form1: TForm1; mylist:TStringlist; i,a:integer;implementation{$R *.dfm}procedure TForm1.Button2Click(Sender: TObject);begin if a begin button1.Caption:='下一行';转载 2017-10-26 10:51:30 · 2492 阅读 · 0 评论 -
delphi控件实现圆角的方法
procedure RoundControl(Control: TWinControl;arc1:Integer;arc2:Integer);var R: TRect; Rgn: HRGN;begin with Control do begin R := Control.ClientRect; Rgn := CreateRoundRectRgn(原创 2017-11-22 12:29:09 · 2255 阅读 · 0 评论 -
delphi实现自适应的方法
一、根据新的分辨率自动重画表单及控件 先在表单单元的Interface部分定义两个常量,表示设计时的屏幕的宽度和高度(以像素为 单位)。在表单的Create事件中先判断当前分辨率是否与设计分辨率相同,如果不同,调用表 单的SCALE过程重新能调整表单中控件的宽度和高度。ConstOrignwidth=1800;Orignheight=600; proced转载 2017-11-23 15:55:56 · 1986 阅读 · 0 评论