加载中
DBExpress 链接Mysql

void __fastcall TForm1::ConnectDatabase() { con->Params->Clear(); con->DriverName="MySQL"; con->Params->Add("HostName=127.0.0.1"); con->Params->Add("User-Name=root"); con->Param...

08/31 13:50
31
Delphi 屏幕取词

要建个DLL实现钩子 unit GetWord; interface uses SysUtils, windows, messages; const NHD_GETWORD_TIMER = 2; const NHD_MAX_TEXTLEN = 1024; const NHD_WIN_INITPOSX = -1; const NHD_WI...

08/15 10:38
86
二叉树 非递归遍历

#include <stdio.h> // Binary Tree Node typedef struct node{ int data; struct node* lchild; //左孩子 struct node* rchild; //右孩子 } BTNode; /** * 创建二叉树 ( 递归) */ BTNod......

05/04 09:15
181
mOrmot 2.0 Json解析

[ {"FieldOutputGroup":"BBR","CName":"被保人序号","EName":"BBRNO","val":["孙悟空","",""]}, {"FieldOutputGroup":"TBR","CName":"日期","EName":"DATE","val":["孙悟空","孙悟空","孙悟空...

2022/12/31 13:26
826
用 Delphi 正则表达式 分隔 字符串为字符数组

procedure TForm1.RzButton3Click(Sender: TObject); var ary: TArray<string>; re: TRegEx; // use RegularExpressions XE2 i: integer; begin re := TRegEx.Create('A.|B.|C.|D.|E.|F.'); ...

2022/11/02 16:45
51
split 函数 delphi

type AryString = array of string; function splitString(str: string; ch: char): AryString; var n, StartIdx, CurrentSplit, FoundIdx: integer; pc, p: pchar; begin n := 0; pc := P.....

2022/11/01 14:19
105
python pyside2 pyqt5 消息框 按钮 汉化

from PySide2.QtWidgets import QApplication, QMainWindow, QPlainTextEdit, QPushButton, QMessageBox def showmsg(text='没填写内容', title='消息'): messageBox = QMessageBox() messag...

2022/08/28 09:37
516
C# 类的实例

一、实验目的与要求 1. 掌握类的定义 2. 熟练使用类 3. 掌握方法的定义与使用 二、实验内容 1、内容:编写一个教师类 属性:教师号 姓名 年龄 系部 职称 工资 方法:调......

2022/08/09 11:28
118
from PIL import Image, ImageTK

ImportError: No module named PIL 解决方法:pip install Pillow

2022/07/15 12:13
113
图像无闪烁循环滚动

unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, V...

2022/06/13 17:15
130
MemoryStreamToOleVariant 等一些函数

function MemoryStreamToOleVariant(Strm: TMemoryStream):OleVariant; var Data: PByteArray; begin Result := VarArrayCreate ([0, Strm.Size - 1], varByte); Data := VarArrayLock(Resul...

2022/03/22 16:20
179
Turbo C 2.0 函数中文说明大全系列

Turbo C 2.0 函数中文说明大全系列 ================分类函数(原型声明所在头文件为ctype.h)===================== int isalpha(int ch) 若ch是字母('A'-'Z','a'-'z')返回非0值,否则返回0...

2021/12/19 21:33
80
FDMemTable 内存表建索引

with FDMemTable1.Indexes.Add do begin Name := 'Index1'; Fields := Column.FieldName; options:=[soDescending]; Active := True; end;......

2021/12/11 15:20
367
rust 奇怪的语法

name: String::from("string ...."); impl Dog{ fn get_name(&self)->&str{ &(self.name[..]) } } 这样的语法,多少有点. 反 .人 .类。 下面是完成同样功能的 C# 代码 string name = “......

2021/11/19 06:15
327

没有更多内容

加载失败,请刷新页面

返回顶部
顶部