📄 oil.cpp
字号:
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "oil.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm24 *Form24;
extern AnsiString lujing;
//---------------------------------------------------------------------------
__fastcall TForm24::TForm24(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm24::FormCreate(TObject *Sender)
{
oil82m->Lines->LoadFromFile(lujing+"oil82.txt");
oil90m->Lines->LoadFromFile(lujing+"oil90.txt");
hydr82->Lines->LoadFromFile(lujing+"hydr82.txt");
hydr90->Lines->LoadFromFile(lujing+"hydr90.txt");
}
//---------------------------------------------------------------------------
void __fastcall TForm24::Button2Click(TObject *Sender)
{
oil82m->Lines->LoadFromFile(lujing+"oil82.txt");
oil90m->Lines->LoadFromFile(lujing+"oil90.txt");
hydr82->Lines->LoadFromFile(lujing+"hydr82.txt");
hydr90->Lines->LoadFromFile(lujing+"hydr90.txt");
}
//---------------------------------------------------------------------------
void __fastcall TForm24::Button1Click(TObject *Sender)
{
oil82m->Lines->SaveToFile(lujing+"oil82.txt");
oil90m->Lines->SaveToFile(lujing+"oil90.txt");
hydr82->Lines->SaveToFile(lujing+"hydr82.txt");
hydr90->Lines->SaveToFile(lujing+"hydr90.txt");
}
//---------------------------------------------------------------------------
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -