MSComm1.Output := StringtoOlestr(Memo2.Text);请问这句话应该如何修改呢,错误提示是incompatible types:"olevariant" and "Pwidechar"

解决方案 »

  1.   

    提示类型不对啊,直接赋值即可,MSCOMM1.OUTput:=Memo2.text
      

  2.   

    MSComm1.Output = "你的字符串"
      

  3.   

    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;
      去年做过一次,记得不是很清楚了,大概是这个样子
      

  4.   

    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;
    看了源代码,你的应该这样写~