Delphi

Delphi 10.4.1的编译器bug终于修正了!

74 0

今天,官方发布了补丁,修正编译器的错误,具体参见:https://quality.embarcadero.com/browse/RSP-30787https://quality.embarcadero.com/browse/RSP-30890这两个bug的严重性不用多说,现在终于解决了!关于补丁的具体内容参考官方发布信息:https://blogs.embarcadero.com/delphi-compiler-and-lsp-patch-for-rad-studio-10-4-1/下载地址:http:

Delphi

Delphi 设置RichEdit的行间距

45 0

procedure TForm1.Button3Click(Sender: TObject);var pf: PARAFORMAT2;begin FillChar(pf, sizeof(paraformat2), #0); pf.cbSize := SizeOf(paraformat2); pf.dwMask := PFM_LINESPACING ; //需要设置上 PFM_LINESPACING 标志,bLineSpacingRule和dyLineSpacing才可能有效// pf.b

Delphi

Delphi 为RichEdit设置行号

84 0

procedure TForm1.Button4Click(Sender: TObject);const PFNS_PAREN=$000; //e.g. 1) PFNS_PARENS= $100; //e.g. (1) PFNS_PERIOD= $200; //e.g. 1. PFNS_PLAIN=$300; PFNS_NONUMBER =$400;const PFN_NONE = $00000000; //无 PFN_BULLET = $00000001; //黑色

Delphi

Delphi RichEdit根据鼠标位置定位光标的方法

43 0

当RichEdit为可用状态时,是不用代码控制此操作的,TRichEdit本身就可以定位光标。但是当RichEdit开始不可用时,则此方法就可能用到了。本例中RichEdit1开始时是不可用的,当在ApplicationEvents1中接收到RichEdit1被双击时则设置RichEdit1的Enable := true;并且定位光标。unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics,

Delphi

Delphi 使Richedit中的链接可以点击

7 0

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, RichEdit, ShellAPI;type TForm1 = class(TForm) RichEdit1: TRichEdit; procedure FormCreate(Sender: TObject); private

Delphi

Delphi中使用ISuperObject解析Json数据

49 0

下面先说一下ISuperObject中几个常用的函数function SO(const s: SOString = ‘{}’): ISuperObject; overload; 此函数传入json数据字符串,并返回一个ISuperObject对象,这一般是我们解析json时使用的第一个函数,如jObj := SO(jsonstr)。property O[const path: SOString]: ISuperObject read GetO write PutO; default; 如:jobj.O[

Delphi SuperObject json操作类的基本用法
Delphi

Delphi SuperObject json操作类的基本用法

48 0

var jo, jf: ISuperObject; ja: TSuperArray; s,sColName,sValue: string; //------------------------------//取某节点下字段列表 jo := SO(AJson); //载入JSON字符串 //ja:= jo[DATA].AsArray; //取某节点下所有数据并序列化 ja:= jo.A[DATA]; //跟上面的