StrPas 将char数组的内容直接赋给字符串

uses StrUtils;


var
  MyPrinter,MyHandle: THandle;
  MyDevice,MyDriver,MyPort: array [0..255] of Char;
  StrList:TStringList;
begin
    StrList:=TStringList.Create;
    Split(PrinterStr,'\',RightList);
    RightList.Free;
    Printer.GetPrinter(MyDevice,MyDriver,MyPort,MyHandle);


    Memo1.Lines.Add(trim(portstr));
    Memo1.Lines.Add(StrPas(myport));
    //EPSONLQ-630K@SD5021102280953250@USB003\NFCPDPK1680@6&1a6e9e5&0&3@USB005\->2
end;

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/166523/viewspace-1063875/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/166523/viewspace-1063875/