cd8_4u.cpp

C++ Builder程序员学习数据结构,里面涵盖了所有你要学习的数据结构的所有源码(二叉树、链表、单链表、双链表、红黑树、快速排序、冒泡排序、哈弗曼树、堆、集合、字典、散列、字典、跳表、图、最短路径

//---------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "About.h"
#include "cd8_4u.h"
#include "W2kStrs.h"
#include "MAPI.hpp"
#include <shfolder.h>
#include "answer.h"
#include "about.h"
                      //包括最短路径解决程序
//---------------------------------------------------------------------------
#pragma resource "*.dfm"
Twaform *waform;
//---------------------------------------------------------------------------
const AnsiString sShouldSave = "Save changes?";     //关闭窗口的保存提示
//----------------------------------------------------------------------------

__fastcall Twaform::Twaform(TComponent *Owner)
	: TForm(Owner)
{
        FileNew1->Execute();
         /* sets the default file name and clears the RichEdit Control */
}

//---------------------------------------------------------------------------
AnsiString DefaultSaveLocation(void)
{
  char *P;
  AnsiString Result;
  /*
    returns the location of 'My Documents' if it exists, otherwise it returns
    the current directory.
  */
  __try
  {
    P = (char *)malloc(MAX_PATH);
    if (SHGetFolderPath(0, CSIDL_PERSONAL, 0, 0, P) != S_OK)
      P = GetCurrentDir().c_str();
  }
  __finally
  {
    Result = P;
    free(P);
    return Result;
  }
};
//---------------------------------------------------------------------------

bool __fastcall Twaform::FileSave(bool ChangeName)  //文件存储
{
	String str;
	TVarRec vrs[1];

        if (!ChangeName)
        {
	        	RichEdit1->Lines->SaveToFile(SaveDialog->FileName);
        		RichEdit1->Modified = false;
        }
        else
        {
           SaveDialog->FileName = FFileName;
           if (SaveDialog->Execute())
           {
              if (FileExists(SaveDialog->FileName))
              {
                 str = FmtLoadStr(sOverwrite, OPENARRAY(TVarRec,
                 (SaveDialog->FileName)));if (MessageDlg(str,
                  mtConfirmation, TMsgDlgButtons() << mbYes << mbNo <<
                 mbCancel, 0) != IDYES)
                 return false;
        		}
	        	RichEdit1->Lines->SaveToFile(SaveDialog->FileName);
		        FFileName = SaveDialog->FileName;
        		RichEdit1->Modified = false;
	        }
        }
        return true;
};

//---------------------------------------------------------------------------
void __fastcall Twaform::FileNew1Execute(TObject *Sender) //新建文件
{
        SaveDialog->InitialDir = DefaultSaveLocation();
	FFileName = LoadStr(sUntitled);
	RichEdit1->Lines->Clear();
	RichEdit1->Modified = false;
}
//---------------------------------------------------------------------------

void __fastcall Twaform::FileOpen1Execute(TObject *Sender)   //打开文件