一些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语言里的常量和变量