commonunit.pas

DELPHI编程实现的对端口通讯的封装。比较有参考意义。

unit CommonUnit;

interface
  
type
  PDataBlock = ^TDataBlock;
  TDataBlock = record
    Len: Integer;
    Content: array [0..100] of Char;
  end;

implementation

end.