unitcomb.cpp

来自「我写的利用IDEA算法的加密程序」· C++ 代码 · 共 92 行

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

#include <vcl.h>
#pragma hdrstop

#include "UnitComb.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "SUIButton"
#pragma link "SUIEdit"
#pragma link "SUIForm"
#pragma resource "*.dfm"
TFormComb *FormComb;
//---------------------------------------------------------------------------
__fastcall TFormComb::TFormComb(TComponent* Owner)
    : TForm(Owner)
{
}

__fastcall TFormComb::TFormComb(TComponent* Owner, char *SrcFile, char *DesFile, int style)
    : TForm(Owner)
{
    this->style = style;
    this->SrcFile = SrcFile;
    this->DesFile = DesFile;
}
//---------------------------------------------------------------------------
void __fastcall TFormComb::suiButton4Click(TObject *Sender)
{
    if (suiEdit1->Text == "")
    {
        ShowMessage("请选择源文件");
        return;
    }
    if (suiEdit2->Text == "")
    {
        ShowMessage("请选择目标");
        return;
    }
    strcpy(SrcFile, suiEdit1->Text.c_str());
    strcpy(DesFile, suiEdit2->Text.c_str());
    if (FileExists(DesFile))
        if (MessageDlg("文件" + AnsiString(DesFile) + "已存在，是否覆盖此文件？",
                            mtConfirmation , TMsgDlgButtons()<< mbYes<<mbNo, 0) ==mrNo)
               return;
    ModalResult = mrOk;
}
//---------------------------------------------------------------------------
void __fastcall TFormComb::suiButton1Click(TObject *Sender)
{
    char FileName[255];
    if (OpenDialog1->Execute())
    {
        suiEdit1->Text = OpenDialog1->FileName;
        strcpy(FileName, suiEdit1->Text.c_str());
        FileName[strlen(FileName)-4] = '\0';
        suiEdit2->Text = FileName;
    }    
}
//---------------------------------------------------------------------------
void __fastcall TFormComb::suiButton2Click(TObject *Sender)
{
    if (SaveDialog1->Execute())
    {
        suiEdit2->Text = SaveDialog1->FileName;
    }    
}
//---------------------------------------------------------------------------
void __fastcall TFormComb::FormCreate(TObject *Sender)
{
    switch (style)
    {
        case 0:
            suiForm1->UIStyle = DeepBlue;
            break;
        case 1:
            suiForm1->UIStyle = WinXP;
            break;
        case 2:
            suiForm1->UIStyle = MacOS;
            break;
        case 3:
            suiForm1->UIStyle = BlueGlass;
            break;
        default:
            suiForm1->UIStyle = Protein;
            break;
    }    
}
//---------------------------------------------------------------------------