-
Delphi 演示0~N位数的任意组合
Delphi 数列的排列组合一例，演示0~N位数的任意组合，组合的数字在0~5之间，需要输入1~6整数，排列结果会显示在文本框组件中。要点代码如下：
ssList := TStringList.Create;
try
if (nBase < 1) then
begin
end
else
begin
if (sList.Count = 0) then
begin
for nIdx := 0 to num-1 do
ssList.Add(a[nIdx]);
end
else
begin
for nIdx := 0 to num-1 do
for nSidx := 0 to sList.Count-1 do
if (Pos(a[nIdx], sList.Strings[nSidx]) = 0) then
ssList.Add(a[nIdx]+sList.Strings[nSidx]);
end;
Combine(nBase-1, ssList);
end;
if ssList.Count > 0 then
begin
sList.Clear;
sList.Text := ssList.Text;sslist.Count
end;
finally
ssList.Free;
end;
- 2022-04-29 16:59:03下载
- 积分：1
-
Delphi7删除字符串指定字符（汉字）的例子
Delphi7删除字符串指定字符的例子，如图所示的运行效果，示例如下文字：“经过这几天在网上的淘金，多少也有些了解了，但是现在我发现就算将分区正确的话，分区所指向的目录区也许会有些问题。”，删除指定的文字为“在”，本例中将上述一段文字中所有的“在”全部删除，在代码部分，各个变量的定义有意思：
Strs, //文本字符串
Stre, //汉字字符串
St, //文本ASCII码
Se, //汉字ASCII码
L_St, //临时文本ASCII码
L_Se, //临时汉字ASCII码
Str_copy //保存文本
: String;
Ints, //文本总长度
Inte, //删除汉字长度
i, //文本循环
p, //汉字循环
ps, //文本指针变量
pe, //汉字指针变量
Int_zh, //找到时保存汉字位置
Int_ch //循环查找时的变量
- 2022-03-23 19:03:00下载
- 积分：1
-
Delphi 获取两个子字符串之间的字符个数
Delphi 获取两个子字符串之间的字符个数，也就是这个字符串由A/B/C三个字符组成，本例子是求A/C中间的所有字符串的个数，空格同样也包括在内。定义两个函数即可实现本功能：
Function TForm1.Strcount( s, s1, s2 : string ): integer;
var
i,j,slen : integer;
begin
i := pos( s1, s );
j := pos( s2, s );
slen := Length(s1);
if j >= i then
Result := j - i - slen
else
Result := 0;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
n : integer;
begin
n := Strcount(Edit1.Text,Edit2.Text,Edit3.Text);
showmessage(IntToStr(n));
end;
- 2022-01-26 07:45:23下载
- 积分：1
-
Delphi 实现组件立体阴影、投影效果
Delphi 为组件制作立体效果，实现组件的阴影、投影效果，这种阴影效果不是很细腻，不过大致也说得过去，必竟实现方法简单，原生Delphi方法实现，不依靠三方控件，最终效果请参见测试截图所示。
- 2022-07-03 03:09:14下载
- 积分：1
-
Delphi 与Java TCPIP通信的范例
这个Delphi例子我觉得值得看，用Java写了TCPIP通信的服务端，用Delphi写了客户端，两者在不同的语言环境下运行，并建立TCPIP通信，服务端的运行效果如示例截图所示。为了不发生消息乱码的现象，两者程序编码采用UTF8格式，用UTF-8格式发送出去，收到的UTF-8数据转成ANSI，这一部分的参考请参见util_utf8.pas文件，消息发送、服务器建立连接部分，请参见Unit1.pas文件。
- 2022-08-23 01:44:09下载
- 积分：1
-
Delphi演示UniCode编码、简体繁体互转的方法实现
Delphi演示如何实现UniCode编码、汉字的繁简互转功能，同时将字符转换为unicode码值（十六进制）：
常用编码：
codepage=936 简体中文GBK
codepage=950 繁体中文BIG5
codepage=437 美国/加拿大英语
codepage=932 日文
codepage=949 韩文
codepage=866 俄文
codepage=65001 unicode UTF-8
本例子中仅使用了936、950，如果你要进行其他语言的编码转换，仅需相应改变其中的编码值即可。
- 2023-06-10 00:30:04下载
- 积分：1
-
Delphi 获得汉字区位码的源码
Delphi 获得汉字区位码的源码，输入指定汉字，将得到这些汉字的区位码，关键代码请参考以下的源码：
procedure TForm1.Button1Click(Sender: TObject);
var
str:string;
hi,lo:integer;
begin
str:=trim(edit2.Text);
hi:=byte(str[1])-$a0;
lo:=byte(str[2])-$a0;
edit1.Text:=inttostr(hi)+inttostr(lo);
end;
- 2022-02-21 00:07:08下载
- 积分：1
-
Delphi 记录文件的读写
Delphi 记录文件的读写，这个程序非数据库程序，实际上也不是文件读写程序，只是使用主窗口、子窗口在这之间传值。在子窗口中输入数据，确定后，会将数据添加到主窗口的StringGrid中，然后通过修改命令，从StringGrid中再读取出数据，进行修改保存，演示了文件内容的读取和写入的操作过程 。
- 2022-02-12 09:49:41下载
- 积分：1
-
指纹开发源代码
中控指纹delphi开发实例，完成了指纹采集，数据库指纹模块保存和比对
(In the control fingerprint the delphi developers instances, complete fingerprint acquisition, the database fingerprint module save and comparison)
- 2022-10-15 02:05:03下载
- 积分：1
-
Delphi开发的模型飞机测控平台 附源代码
Delphi开发的模型飞机测控平台 附源代码，里面主要涉及多线程操作、GPS、传感器、端口操作等一系列系统控制的技巧，还包括了许多操作函数，比如绘制飞行轨迹的函数、绘制坐标刻度的函数、用户界面读取发送数据指令的函数、还有线程的同步、线程互斥等。
由于有调试目的，如果要求发送字符格式的数据，就直接发送用户输入的字符串，其他情况下，都是发送打包好的数据矩阵。
调用其它函数实现发送串口数据的功能。注意函数GetData还没有实现线程的互斥，目的是把发送的数据保存在各个线程中。
在此提示： 由于传输系统总会有一定的吴码率，那么为了避免轨迹图出现问题，例如坐标范围过大需要除去粗大误差，考虑到模型飞机的飞行速度不会超过10m/s，考虑到数子传输系统的下传速度，设定如果位置变化超过20m就去掉。
- 2022-08-16 19:54:45下载
- 积分：1
