var outputstring:olevariant; i:integer; begin if trim(Memo2.text)<>'' then begin for i:=0 to length(trim(Memo2.text)) do begin outputstring[i]:=copy(trim(Memo2.text),i+1,1); end; MSComm1.Output:=outputstring; end; end; 去年做过一次,记得不是很清楚了,大概是这个样子
var outputstring:variant; i:integer; begin if trim(Memo2.text)<>'' then begin outputstring := VarArrayCreate([1, 8], varByte); for i:=1 to length(trim(Memo2.text)) do begin outputstring[i]:=copy(trim(Memo2.text),i,1); end; MSComm1.Output:=outputstring; end; end; 看了源代码,你的应该这样写~
outputstring:olevariant;
i:integer;
begin
if trim(Memo2.text)<>'' then
begin
for i:=0 to length(trim(Memo2.text)) do
begin
outputstring[i]:=copy(trim(Memo2.text),i+1,1);
end;
MSComm1.Output:=outputstring;
end;
end;
去年做过一次,记得不是很清楚了,大概是这个样子
outputstring:variant;
i:integer;
begin
if trim(Memo2.text)<>'' then
begin
outputstring := VarArrayCreate([1, 8], varByte); for i:=1 to length(trim(Memo2.text)) do
begin
outputstring[i]:=copy(trim(Memo2.text),i,1);
end;
MSComm1.Output:=outputstring;
end;
end;
看了源代码,你的应该这样写~