C++语言转为DELPHI语言 大家帮下忙.在线等

Question

        FILE   *   fp;           fp=fopen("LPT1","wb+");        if(fp==NULL)        {                return false;        }        else        {                fputc(29,fp);                fputc(86,fp);                fputc(66,fp);                fputc(20,fp);                fclose(fp);        } 

Answer 1

var
  fn: TFileStream;
  ch: char;
begin
  fn := TFileStream.Create('LPT1', fmCreate);
  ch := chr(29);
  fn.Write(ch, 1);
  fn.Free;
end;