如何将 TStringDynArray 转换为 TStringList

Question

我正在使用TDirectory::GetFiles() 来获取文件列表（显然）。 结果存储在TStringDynArray 中，我想将其传输到TStringList，唯一目的是使用IndexOf() 成员查看列表中是否存在字符串。

任何让我知道某个字符串是否存在于从 TDirectory::GetFiles() 返回的文件列表中的解决方案都可以。不过，知道如何转换 TStringDynArray 会很有趣。

TStringDynArray DynFiles = TDirectory::GetFiles("Foo path");
System::Classes::TStringList *Files = new System::Classes::TStringList;

Files->Assing(DynFiles) // I know this is wrong, but it illustrates what I want to do.
if(Files->IndexOf("Bar") { // <---- This is my goal, to find "Bar" in the list of files.

}

Answer 1

TStringList 和 TStringDynArray 互不了解，因此您必须手动复制字符串：

TStringDynArray DynFiles = TDirectory::GetFiles("Foo path");
System::Classes::TStringList *Files = new System::Classes::TStringList;

for (int I = DynFiles.Low; I <= DynFiles.High; ++I)
    Files->Add(DynFiles[I]);

if (Files->IndexOf("Bar")
{
    //...
}

delete Files;

由于无论如何您都必须手动循环遍历数组，因此您可以摆脱TStringList：

TStringDynArray DynFiles = TDirectory::GetFiles("Foo path");

for (int I = DynFiles.Low; I <= DynFiles.High; ++I)
{
    if (DynFiles[I] == "Bar")
    {
        //...
        break;
    }
}

但是，如果您只对检查特定文件是否存在感兴趣，请查看TFile::Exists()，甚至查看Sysutils::FileExists()。

if (TFile::Exists("Foo path\\Bar"))
{
    //...
}

if (FileExists("Foo path\\Bar"))
{
    //...
}

_{* 就我个人而言，我讨厌 IOUtils 单元使用动态数组作为列表。它们速度慢、效率低，并且不能与 RTL 的其余部分很好地集成。但这只是我的看法。}