unit2.~cpp

来自「一个串口测试程序」· ~CPP 代码 · 共 33 行

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop
#include "stdio.h"
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
   // 串口数据
void __fastcall TForm2::FormCreate(TObject *Sender)
{
  FILE *fp;
  fp=fopen(".\\串口数据.txt","w");
  fprintf(fp,"%s","");
  fclose(fp);
  Form2->Memo1->Lines->LoadFromFile("串口数据.txt");
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Timer1Timer(TObject *Sender)
{
 Form2->Memo1->Lines->LoadFromFile("串口数据.txt");
}
//---------------------------------------------------------------------------