TSrings 使用

ps:TStrings;

ss:TStringlist:

ps:=ss;

1.同一个dll 里面  ps 相当于ss 的引用，修改了ps，相当于修改了ss

2.不同的dll 调用函数想实现这个引用的效果 要使用var变量

3.TSringList 里面的键值对如果包含了空格会影响正常的取值

procedure TForm1.Button1Click(Sender: TObject);
var
   sSQL,sName,sValue,sPrefix,ss:string;
   i:Integer;
   AParams: TStrings;
   AList: TStringList;
begin
     ss:='l_op_code=8888,vc_op_password=8888,l_station_no = 0, l_action_in = 1,l_serial_no= 123 ';
     ss:=StringReplace(ss,' ', '', [rfReplaceAll]);   //关键语句
     AList:= TStringList.Create;

     AList.Delimiter:= ',';
     AList.DelimitedText:= ss;
     AParams:=AList;

    sSQL:= EmptyStr;
      for i:=0 to Pred(AParams.Count) do
      begin
        sName:= AParams.Names[i];
        sValue:= AParams.Values[sName];
        sPrefix:= Copy(Trim(sName), 1, 2);
        if (sPrefix<>'l_') and (sPrefix<>'en') then
          sValue:= QuotedStr(sValue);
        sSQL:= sSQL + ',@'+sName+'='+sValue;
      end;
      Delete(sSQL, 1, 1);
      ShowMessage(sSQL);
end;

如果去掉关键语句 则name会取出空格来，切记