فهرست منبع

* 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);