newfile.cpp

文件管理模拟系统设计报告

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

#include <vcl.h>
#pragma hdrstop

#include "newfile.h"
#include "file.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
Tnewfrm *newfrm;
extern MFD *root;
extern MFD *mpos;


//---------------------------------------------------------------------------
__fastcall Tnewfrm::Tnewfrm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall Tnewfrm::Button2Click(TObject *Sender)
{
        this->Hide();
}
//---------------------------------------------------------------------------
void __fastcall Tnewfrm::Button1Click(TObject *Sender)
{
       int i,j,k;
       MFD *r;
       UFD *p,*q,*f;
       TListItem *ListItem;
       p=(UFD*)malloc(sizeof(UFD));
       if(RadioButton1->Checked==true) i=100;
       else                            i=0;
       if(RadioButton3->Checked==true) j=10;
       else                            j=0;
       if(RadioButton5->Checked==true) k=1;
       else                            k=0;
       q=mpos->file;
       while(q!=NULL)
       {
         if(q->filename==EditName->Text)
         {
           Application->MessageBoxA("文件重名,请重新输入!","文件重名",MB_ICONERROR);
           return;
         }
         q=q->next;
       }
       p->filename=EditName->Text;
       strcpy(p->text,Memo->Text.c_str());
       p->pt=i+j+k;
       p->len=Memo->Text.Length();
       p->next=NULL;
       q=mpos->file;
       if(q==NULL)  {mpos->file=p; p->parent=NULL;}
       else{
                while(q->next!=NULL) q=q->next;
                p->parent=q;
                q->next=p;
       }

      mainfrm->ListView->Clear();
      if(mpos==NULL)   return;
      for(r=mpos->folder;r!=NULL;r=r->next)
      {
        if(r==NULL)  break;
        ListItem=mainfrm->ListView->Items->Add();
        ListItem->Caption=r->name;
        ListItem->ImageIndex=0;
      }
      for(f=mpos->file;f!=NULL;f=f->next)
      {
        if(f==NULL)  break;
        ListItem=mainfrm->ListView->Items->Add();
        ListItem->Caption=f->filename;
        ListItem->ImageIndex=1;
      }
      this->Hide();
}
//---------------------------------------------------------------------------