cd4_2u.cpp

C++ Builder程序员学习数据结构第4章

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

#include <vcl.h>
#pragma hdrstop
#include <time.h>            //时间相关函数
#include "cd4_2u.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
class Node                          //定义结点类
{
   friend class List;               //以friend的方式共享资源
   public:                          //公有变量,函数,程序定义
      Node(String s):name(s),link(NULL){}   //结点产生时的内容设置
      Node *link;                           //结点链结的指针
   private:                         //私有变量,函数,程序定义
      String name;                          //定义字符串型的私有变量name
};

class List                          //定义链结类
{
   private:
      Node* first;                  //设定首结点的链结
      Node* last;                   //设定尾结点的链结
   public:                          //通常类的使用都是在此下方,用函数方式表示
      void istf(String s)           //链表前端加入的函数
      {
         Node* newnode=new Node(s); //C++的新增对象的方法
         newnode->link=first;
         first=newnode;
      }
      void istb(String s)           //链表后端加入的函数
      {
         Node* newnode=new Node(s);
         if(empty())
            first=newnode;
         else
            last->link=newnode;
         last=newnode;
      }
      void dplist();                 //定义链表显示函数
      bool empty(){return first==NULL;}     //确认链表是否为空
      void clear()                   //链表的清除函数
      {
         Node* temp=first;
         first=first->link;
         delete temp;                //C++ 将对象删除，释放空间的方法
      }
};
List H,b;                            //设置前(H)后(b)两链表
String str;
int i,t,t1;
static int r=1,con1;
time_t tim;                          //定义tim为时间类型
tm *dat;                             //定义dat为结构类型
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::endClick(TObject *Sender)
{
   Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
   sg->Cells[0][0]="    座 次";
   sg->Cells[1][0]="