delphi - 从 StringList 中的值获取 id

Question

我有一个 2 行的 StringList

aOldPriceTerms[0] = 'FuelAddition=336643160'
aOldPriceTerms[1] = 'Freight=336643155'

所以它很好用

aOldPriceTerms.Values['运费'] -> '336643155'

我想要列表中的 ID 列表。

就这么简单

'FuelAddition','Freight'

目前我使用这段代码，其中 aOldPriceTerms 是实际的 StringList。

function GetList(aOldPriceTerms: TStringList): String;
var
  vOldTerm : string;
  vOldTermsList : TStringList;
begin
  vOldTermsList := TStringList.Create;
  try
    for i := aOldPriceTerms.Count - 1 downto 0 do
    begin
      vOldTerm := Copy(aOldPriceTerms[i], 1, (Pos('=', aOldPriceTerms[i])-1));
      vOldTermsList.Add(vOldTerm);
    end;

    Result := vOldTermsList.CommaText;
  finally
    FreeAndNil(vOldTermsList);
  end;
end;

我的问题是有没有更简洁的方法来获取 ID？

Answer 1

示例来自 Delphi Basics , 但 TStringList.Names 也在 Delphi documentation 中描述

  // Now display all name and age pair values
  for i := 0 to names.Count-1 do
  begin
    ShowMessage(names.Names[i]+' is '+names.ValueFromIndex[i]);
  end;