我的程序如下,procedure TForm1.Comm1ReceiveData(Sender: TObject; Buffer: Pointer;
BufferLength: Word);
var
i,j, ncount: Integer;
strreceive,s:string;
begin
form3.Memo1.Lines.Clear;
setlength(strreceive,bufferlength);
move(buffer^,pchar(strreceive)^,bufferlength);
form3.memo1.Lines.Add(strreceive);
form3.Memo1.Invalidate;
//以上把数据放在MEMO 上,以下放到数据表进去,
begin
nCount := form3.Memo1.Lines.Count;
with form3.Table1 do
begin
last;
for i := 0 to nCount-3 do begin
s := form3.Memo1.Lines.Strings[i];
try
append; FieldByName('cs_id').value := Copy(s,0,9);
FieldByname('cq').AsString := Copy(s,13,4);
post;
except
showmessage('error!');
end;
end;
end;
end;end;
BufferLength: Word);
var
i,j, ncount: Integer;
strreceive,s:string;
begin
form3.Memo1.Lines.Clear;
setlength(strreceive,bufferlength);
move(buffer^,pchar(strreceive)^,bufferlength);
form3.memo1.Lines.Add(strreceive);
form3.Memo1.Invalidate;
//以上把数据放在MEMO 上,以下放到数据表进去,
begin
nCount := form3.Memo1.Lines.Count;
with form3.Table1 do
begin
last;
for i := 0 to nCount-3 do begin
s := form3.Memo1.Lines.Strings[i];
try
append; FieldByName('cs_id').value := Copy(s,0,9);
FieldByname('cq').AsString := Copy(s,13,4);
post;
except
showmessage('error!');
end;
end;
end;
end;end;
解决方案 »
- delphi idhttp POST注册账号 验证码是中文的如何解决
- 金额如何让"分"累计凑“角”到下一个月方法
- 用mediaplayer播放wav文件重复播放时为什么会出错?
- 英巴卡迪诺骚扰我们的客户,说我们盗版。
- 请教!!!!!!随机数的问题
- 请教,现在要出去找工作了不知怎样我担心十一期间工作好找吗,有没有影响
- 问一个烦恼的问题:TclientDataset在ApplyUpdates(0)或(-1)时不能保存记录,不知何故? (解决100分立即献上)
- 我用query条件查询,stringgrid为什么不能显示出根据条件查询出的记录?
- label问题
- 出售delphi编写的“进销存+自动财务”源码
- 怎么用DELPHI做DLL,难吗?
- 多线程方式绘图
begin
if form1.N3.Enabled=false then
begin timer1.interval:=2000;
transmit('MDA'+#13#10);(执行这条命令,上面的数据就接收一次)
end;
end;
begin
if form1.N3.Enabled=false then
begin timer1.interval:=2000;
transmit('MDA'+#13#10);(执行这条命令,上面的数据就接收一次)
end;
end;