Parcourir la source

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

git-svn-id: trunk@18105 -

marco il y a 14 ans
Parent
commit
83af0c8a1b
1 fichiers modifiés avec 1 ajouts et 2 suppressions
  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);