L
lsssxs
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.Com1RxChar(Sender: TObject; Count: Integer);
var
Str,scr : String;
begin
Com1.ReadStr(Str, Count);
scr:=StrToHexStr(Str); //这里的scr是并可返回的数据，返回2组数据，第一组和第2组相隔1秒
memo1.Text:=memo1.Text+scr;
end;
我现在要使用一个变量来代替这个memo1.text 要让变量等于2次返回的字符加起来！
var
Str,scr : String;
begin
Com1.ReadStr(Str, Count);
scr:=StrToHexStr(Str); //这里的scr是并可返回的数据，返回2组数据，第一组和第2组相隔1秒
memo1.Text:=memo1.Text+scr;
end;
我现在要使用一个变量来代替这个memo1.text 要让变量等于2次返回的字符加起来！