代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, AppEvnts;type TForm1 = class(TForm) TrayIcon1: TTrayIcon; Button1: TButton; procedure TrayIcon1Click(Sender:
for I := 0 to 200 dobegin Edit_Y.Items.Add((1949+i).ToString);end;Edit_Y.ItemIndex:=Edit_Y.Items.IndexOf(formatdatetime('yyyy',now()));
function SubStrConut(mStr: string; mSub: string): Integer;{ 返回子字符串出现的次数 }begin Result := (Length(mStr) - Length(StringReplace(mStr, mSub, '', [rfReplaceAll]))) div Length(mSub);end; { SubStrConut }procedure TForm1.Button1Click(Sender: TObj
TTrayIcon 的主要属性:TrayIcon.Icon指定托盘图标, 有几种用法:1、设计时选择;2、把一个 TIcon 对象给它;3、使用当前程序图标: TrayIcon1.Icon := Application.Icon;4、TrayIcon1.SetDefaultIcon; 这也是使用当前程序图标.TrayIcon.Icons 与 TrayIcon1.IconIndexTrayIcon.Icons 对应一个 TImageList, 用 TrayIcon.IconIndex 来指定使用 TIma
WindowsAPI: MulDivMulDiv(a, b, c) 中的 a、b、c 是三个 Integer, 同时返回一个 Integer.其计算方式类似于: a * b / c 或 a * b div c, 但也有区别.//例一: 相同处var a,b,c,n1,n2: Integer;begin a := 4; b := 3; c := 2; n1 := a * b div c; n2 := MulDiv(a, b, c); ShowMessageFmt('%d : %d&#
unit Unit1;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,TlHelp32, StdCtrls;type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } publ
自己写了一MinMax.dll文件 里面定义了2个函数Min、Max在测试中使用了静态调用的方法 完整代码如下：----------------------------------------unit unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, Buttons;type TForm1 = clas
最近做的工具需要实现串口转UDP中间件，中间件与下位机通过RS232通讯，与接收服务器通过UDP通讯。在传输过程中出现问题如下：1. 通过PC机安装的虚拟串口进行调试，接收程序完全正常。2.与下位机进行通讯测试，常规短报文接收都完全正常，但是在传输图片分包文件（包总长度：545）时出现报文内部分字节丢失的问题。经过不断测试，发现：1. 下位机发送的报文长度为545，无异常；2. 串口转UDP转发过程完全正常；3.中间件的串口接收出现问题，原本545的报文接收到后会变成540、542、543等，总会丢失几