u011970286的专栏

Delphi10 安装Graphics32

一、下载Graphics安装包 官网：www.graphics32.org 下载地址：Graphics32 - Browse /graphics32 at SourceForge.net 二、修改编译文件GR32_Compiler.inc {$IFDEF VER260} {$DEFINE COMPILERXE5} {$IFNDEF BCB} {$DEFINE DELPHIXE5} {$ELSE} {$DEFINE BCBXE5} {$ENDI...

procedure Delay(MSecs: Longint);//延时函数，MSecs单位为毫秒(千分之1秒)var FirstTickCount, Now: Longint;begin FirstTickCount := GetTickCount(); repeat Application.ProcessMessages; Now := GetTickCount(); until (Now - FirstTickCount >= MSecs) or (Now ...

type TArr = array of string; //字符串数组 // 举例 G01X00Y1.1Z123 转换成 G01， X00 ，Y1.1 ，Z123 这样的数组function Setstringtonum(cString: string): TArr;var i, j: integer; str: string; trayy: TArr;// ResultList: TStringList;begin j := 0;// Re...

function beween(Src, x, y: string): string; //输出xy之间的字符var E, F: Word; z: string; //截取后字符串begin E := POS(x, Src); //x位置 //取出子串a，在父串b中第一次出现的位置； if E < 1 then begin z := '-1' end else z := COPY(Src, E + 1, length(Src) - ...

function LenBetween(p1, p2: TGLVector): Single;var r: Single;begin//计算p1和p2之间的距离 if ((p1.X = 0) and (p1.Y = 0)) or ((p2.X = 0) and (p2.Y = 0)) then begin if (p1.X = 0) and (p1.Y = 0) then r := sqrt(sqr(p2.X) + sqr(p2.Y)); if (p2.X =...

判断直线(a,b)(c,d)是不是平行delphi 代码