瀏覽代碼

* TProcess.setparameter assigned a TStrings instead of .assign()ing it.
Patch from Cyrax, Mantis #19906

git-svn-id: trunk@18105 -

marco 14 年之前
父節點
當前提交
83af0c8a1b
共有 1 個文件被更改,包括 1 次插入2 次删除
  1. 1 2
      packages/fcl-process/src/process.pp

+ 1 - 2
packages/fcl-process/src/process.pp

@@ -395,8 +395,7 @@ end;
 
 procedure TProcess.SetParameters(const AValue: TStrings);
 begin
-  if FParameters=AValue then exit;
-  FParameters:=AValue;
+  FParameters.Assign(AValue);
 end;
 
 Procedure TProcess.SetWindowRect (Value : Trect);