从StringList中的值获取id

Question

我有一个2行的StringList

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

所以它可以正常使用

aOldPriceTerms.Values ['Freight'] - >'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文档中进行了描述

  // 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;