TStringList的IndexOfName

IndexOfName这个方法用着很好，记录下，以后留意下

上个例子：

procedure TForm1.Button1Click(Sender: TObject);
var
  MyList: TStringList;
begin
  MyList := TStringList.Create;
  try
    MyList.CommaText := 'STO=申通,YTO=圆通,SF=顺丰,ZJS=宅急送';
    ShowMessage(IntToStr(MyList.IndexOfName('YT2O')));
    MyList.ValueFromIndex[MyList.IndexOfName('YTO')] := MyList.ValueFromIndex[MyList.IndexOfName('YTO')] + 'wokao';
    ShowMessage(MyList.CommaText);

  finally
    MyList.Free;
  end;
end;