在CBC中TStringList控件内容添加，插入，替换

#include <System.Classes.hpp>

#include <iostream> // 用于输出

int main()

{ // 创建一个TStringList对象

TStringList *stringList = new TStringList();

// 添加一些初始内容到列表中

stringList->Add("苹果");

stringList->Add("香蕉");

stringList->Add("橙子");

// 显示列表中的所有字符串

std::cout << "初始字符串列表中的内容：" << std::endl;

for (int i = 0; i < stringList->Count; ++i)

{

std::cout << stringList->Strings[i].c_str() << std::endl;

}

// 在索引为1的位置插入一个新的字符串，原位置的内容将被顺延

stringList->Insert(1, "草莓");

// 显示插入后的列表中的所有字符串

std::cout << "插入后的字符串列表中的内容：" << std::endl;

for (int i = 0; i < stringList->Count; ++i)

{

std::cout << stringList->Strings[i].c_str() << std::endl;

}

// 替换索引为0的位置的字符串为新的内容，原位置的内容将被替换

stringList->Strings[0] = "樱桃";

// 显示替换后的列表中的所有字符串

std::cout << "替换后的字符串列表中的内容：" << std::endl;

//切换在TStringList内部数据的索引位置

// 查找要移动的字符串在列表中的索引

int index = stringList->IndexOf(target);

if (index != -1)

{

/ 如果找到了目标字符串，将其删除并插入到索引位置为0的地方

stringList->Delete(index);

stringList->Insert(0, target);

}

for (int i = 0; i < stringList->Count; ++i)

{

std::cout << stringList->Strings[i].c_str() << std::endl;

}

// 释放TStringList对象

delete stringList;

return 0;

}