TStringList,快速解析 查找测试。。。很有用，再也不用 FOR 循环了

 

 

 

原来的很多写法这次，可以修改了。

原写法：

function TAopApi.GetTopTypeByAop(const aop_type: string): string;
var
  MyList: TStringList;
  I: Integer;
begin
  MyList := TStringList.Create;
  try
    MyList.CommaText := MyAopTypeToTopListStr;
    for I := 0 to MyList.Count-1 do
    begin
      if aop_type = MyList.Names[I] then
      begin
        Exit(MyList.ValueFromIndex[I]);
      end;
    end;
  finally
    MyList.Free;
  end;
end;

 

修改后：

function TAopApi.GetTopTypeByAop(const aop_type: string): string;
var
  MyList: TStringList;
begin
  MyList := TStringList.Create;
  try
    MyList.CommaText := MyAopTypeToTopListStr;
    Exit(MyList.Values[aop_type]);
  finally
    MyList.Free;
  end;
end;

简洁 高效 明了

只适应根据键名 找 键值的情况

转载于:https://www.cnblogs.com/del88/p/3705463.html