D:/work/code_by/ListTools/ListTools.cpp

查看本檔案說明文件.

/*===========================================================================
實作BCB中的TList、TStringList和TIniFile元件的部份功能。
===========================================================================*/
#include <stdio.h>
#include <string.h>
#include "ListTools.h"

/*===========================================================================
功能：建構子
===========================================================================*/
TMyList::TMyList()
{
  freeItems = false;  //清除時只清掉指標，不清掉指標所指的記憶體
  Head = Tail = NULL;
  count = ptrIndex = 0;
}

/*===========================================================================
功能：解構子
===========================================================================*/
TMyList::~TMyList()
{
  Clear();  //清除所有項目
}
/*===========================================================================
功能：增加一個項目，只有將項目的指標記錄下來
傳入：item為欲增加的項目
傳出：新增項目的索引
===========================================================================*/
int TMyList::Add(void *item)
{
  Ptr = new TMyListItem();  //建立一個項目
  Ptr->item = item;
  Ptr->Next = NULL;
  if (Tail)
  {
    Tail->Next = Ptr;  //附加在最後
    Tail = Ptr;
  }
  else
    Head = Tail = Ptr;
  return ptrIndex = count++;  //項目個數加1
}
/*===========================================================================
功能：清除所有項目
===========================================================================*/
void TMyList::Clear(void)
{
  TMyListItem *ListItem;

  Ptr = Head;
  while (Ptr)
  {
    ListItem = Ptr->Next;
    if (freeItems)  //TMyStringList才是true
      delete [] (char *)Ptr->item;  //清掉項目所佔的記憶體
    delete Ptr;  //清掉指標
    Ptr = ListItem;
  }
  Head = Tail = NULL;
  count = ptrIndex = 0;
}
/*===========================================================================
功能：刪除某一個項目
傳入：index為被刪除項目的索引
===========================================================================*/
void TMyList::Delete(int index)
{
  TMyListItem *DelItem;

  if (index >= count || index < 0)  //索引超出範圍
    return;
  if (index == 0)  //刪除第一個項目
  {
    DelItem = Head;
    Head = Head->Next;
    ptrIndex = 0;
    if (count == 1)  //刪除的是唯一的項目
      Tail = NULL;
  }
  else
  {
    if (ptrIndex >= index)
    {
      Ptr = Head;
      ptrIndex = 0;
    }
    for (;ptrIndex < index - 1; ptrIndex++)  //找到要刪除的項目
      Ptr = Ptr->Next;
    DelItem = Ptr->Next;
    Ptr->Next = DelItem->Next;
    if (index == count - 1)  //刪除的是最後一個項目
      Tail = Ptr;
  }
  if (freeItems)  //TMyStringList才是true
    delete [] (char *)DelItem->item;  //清掉項目所佔的記憶體
  delete DelItem;  //清除指標
  count--;
}
/*===========================================================================
功能：將一個項目插入某一個位置，只有將指標記錄下來
傳入：index為插入的位置
      item為欲插入的項目
===========================================================================*/
void TMyList::Insert(int index, void *item)
{
  TMyListItem *ListItem = new TMyListItem();

  if (index > count)  //檢查索引範圍
    index = count;
  else if (index < 0)  //檢查索引範圍
    index = 0;
  ListItem->item = item;
  if (index == 0)  //插入第一個
  {
    ListItem->Next = Head;
    Head = ListItem;
    ptrIndex++;
    if (count == 0)  //原本沒有項目
      Ptr = Tail = ListItem;
  }
  else
  {
    if (ptrIndex >= index)
    {
      Ptr = Head;
      ptrIndex = 0;
    }
    for (;ptrIndex < index - 1; ptrIndex++)  //找出要插入的位置
      Ptr = Ptr->Next;
    ListItem->Next = Ptr->Next;
    Ptr->Next = ListItem;
    if (index == count)  //插入最後一個位置
      Tail = ListItem;
  }
  count++;
}
/*===========================================================================
功能：傳回某一個項目
傳入：index為欲傳回項目的索引
===========================================================================*/
void *TMyList::Items(int index)
{
  if (index >= count || index < 0)  //索引超出範圍
    return NULL;
  if (ptrIndex > index || index == 0)
  {
    Ptr = Head;
    ptrIndex = 0;
  }
  for (;ptrIndex < index; ptrIndex++)  //找出該項目
    Ptr = Ptr->Next;
  return Ptr->item;
}

/*===========================================================================
功能：建構子
===========================================================================*/
TMyStringList::TMyStringList() : TMyList()
{
  freeItems = true;  //清除指標前先清除指標所指向的記憶體
  itemName[0] = '\0';
}
/*===========================================================================
功能：增加一個項目的複製
傳入：item為欲增加的項目
傳出：新增項目的索引
===========================================================================*/
int TMyStringList::Add(char *item)
{
  char *newItem = new char[strlen(item) + 1];
  strcpy(newItem, item);
  return TMyList::Add(newItem);
}
/*===========================================================================
功能：將一個項目的複製插入某一個位置
傳入：index為插入的位置
      item為欲插入的項目
===========================================================================*/
void TMyStringList::Insert(int index, char *item)
{
  char *newItem = new char[strlen(item) + 1];
  strcpy(newItem, item);
  TMyList::Insert(index, newItem);
}
/*===========================================================================
功能：傳回某一個名字
傳入：index為欲傳回名字的索引
傳出：字串
===========================================================================*/
char *TMyStringList::Names(int index)
{
  char *str, *p;

  str = Strings(index);
  if (str == NULL)
    return NULL;
  if ((p = strchr(str, '=')) == NULL)  //找出'='的位置
    return strcpy(itemName, str);
  itemName[p - str] = '\0';
  return strncpy(itemName, str, p - str);
}
/*===========================================================================
功能：設定某一個名稱的值，若此名稱不存在，則新增此項目
傳入：name為名稱
      item為值
傳出：此項目的索引
===========================================================================*/
int TMyStringList::SetValue(char *name, char *item)
{
  int i;
  char str[201];

  sprintf(str, "%s=%s", name, item);
  for (i = 0; i < count; i++)
    if (strcmp(Names(i), name) == 0)  //找到該項目
      break;
  if (i < count)  //找到該項目
  {
    Delete(i);  //刪除該項目
    Insert(i, str);  //在原位置插入新項目
    return i;
  }
  else
    return Add(str);  //新增一個項目
}
/*===========================================================================
功能：傳回某一個字串
傳入：index為欲傳回字串的索引
傳出：字串
===========================================================================*/
char *TMyStringList::Strings(int index)
{
  return (char *)Items(index);
}
/*===========================================================================
功能：傳回某一個名字所代表的值
傳入：name為名字索引
傳出：該名字所代表的值，如果找不到名字，則傳回空字串"\0"
===========================================================================*/
char *TMyStringList::Values(char *name)
{
  static char *emptyStr = "\0";
  char *tempc = NULL;
  int i;

  for (i = 0; i < count; i++)
    if (strcmp(Names(i), name) == 0)  //找到名字相符的項目
    {
      tempc = strchr(Strings(i), '=');  //找出'='的位置
      break;
    }
  return tempc != NULL? (tempc + 1) : emptyStr;
}

---