unit3.cpp

LMS软件是用来进行自适应滤波的最小均方误差算法

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

#include <vcl.h>
#pragma hdrstop

#include "Unit3.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
AnsiString Path;
TF2 *F2;
extern bool cfgflag;
//---------------------------------------------------------------------------
__fastcall TF2::TF2(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TF2::Button4Click(TObject *Sender)
{
    F2->Close();
}
//---------------------------------------------------------------------------
void __fastcall TF2::P1Click(TObject *Sender)
{
    if((P3->Tag==1)&&(RE1->Tag==1))
    {
        if(MessageBox(F2->Handle,"  是否保存配置文件! ","提示",MB_YESNO)==IDYES)
        {
            RE1->PlainText=true;
            cfgflag=true;
            RE1->Lines->SaveToFile(Path+"INI");
        }
    }
    RE1->PlainText=false;
    RE1->Tag=0;
    P1->Tag=0;P2->Tag=0;P3->Tag=0;
    P1->BevelInner=bvNone;
    P1->BevelOuter=bvRaised;
    P2->BevelInner=bvNone;
    P2->BevelOuter=bvRaised;
    P3->BevelInner=bvNone;
    P3->BevelOuter=bvRaised;
    if(Sender==P1)
    {
        P1->Tag=1;
        P1->BevelInner=bvLowered;
        P1->BevelOuter=bvNone;
        RE1->ReadOnly=true;
        try
        {
            RE1->Lines->LoadFromFile(Path+"ABT");
        }
        catch(...)
        {
            RE1->Clear();
            RE1->Text="打开关于文件("+Path+"ABT)错误!";
        }
    }
    if(Sender==P2)
    {
        P2->Tag=1;
        P2->BevelInner=bvLowered;
        P2->BevelOuter=bvNone;
        RE1->ReadOnly=true;
        try
        {
            RE1->Lines->LoadFromFile(Path+"CMD");
        }
        catch(...)
        {
            RE1->Clear();
            RE1->Text="打开命令列表文件("+Path+"CMD)错误!";
        }
    }
    if(Sender==P3)
    {
        P3->Tag=1;
        P3->BevelInner=bvLowered;
        P3->BevelOuter=bvNone;
        RE1->ReadOnly=false;
        try
        {
            RE1->Lines->LoadFromFile(Path+"ini");
        }
        catch(...)
        {
            RE1->Clear();
            RE1->Text="配置文件("+Path+"INI)打开错误!";
        }
    }

}
//---------------------------------------------------------------------------
void __fastcall TF2::RE1KeyPress(TObject *Sender, char &Key)
{
    if(P3->Tag) RE1->Tag=1;
}
//---------------------------------------------------------------------------
void __fastcall TF2::FormClose(TObject *Sender, TCloseAction &Action)
{   AnsiString temp;
    if(RE1->Tag==1)
    {
        if(MessageBox(F2->Handle,"  是否保存配置文件! ","提示",MB_YESNO)==IDYES)
        {
            RE1->PlainText=true;
            cfgflag=true;
            RE1->Lines->SaveToFile(Path+"ini");
        }
    }

}
//---------------------------------------------------------------------------

void __fastcall TF2::FormCreate(TObject *Sender)
{
    char temp[MAX_PATH];
    GetModuleFileName(NULL,temp,MAX_PATH);
    Path=AnsiString(temp);
    Path=Path.Delete(Path.Length()-2,3);
    P1Click(P1);
}
//---------------------------------------------------------------------------