当前位置:编程学习 > Delphi >>

一些delphi 的代码,什么意思

procedure tFrmReader.sendData();
var

orderStr : string;
begin

if orderLst.Count>curOrderNo then

begin

orderStr:=orderLst.Strings[curOrderNo];

memComSeRe.Lines.Add('==>> '+orderStr);

orderStr:=exchData(orderStr);

comReader.WriteCommData(pchar(orderStr),length(orderStr));

inc(curOrderNo);

end;
end;
答案:这段程序估计是将一个队列数据中的当前数据发送到串口

procedure tFrmReader.sendData();
var

orderStr : string;
begin

if orderLst.Count>curOrderNo then
// 判断有没有到队列尾

begin

orderStr:=orderLst.Strings[curOrderNo];

// orderLst存放的应该是准备发送的数据队列,这里取当前位置数据

memComSeRe.Lines.Add('==>> '+orderStr);

// memComSeRe应该是TMemo类型,输出准备发送的文本

orderStr:=exchData(orderStr);

// exchData函数估计是为下面要发送到串口的数据进行格式转换吧

comReader.WriteCommData(pchar(orderStr),length(orderStr));

// 向串口发送数据

inc(curOrderNo);


// curOrderNo应该是全局变量,记录队列当前位置,现在令它指向下一个

end;
end;

上一个:delphi中showmessage可以使用图标吗
下一个:Delphi语言里的常量和变量

CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,