在线等候，请教如何将一个StringList的值赋给另一个StringList

Question

我将传入的StringList赋给类的私有成员。
如：
procedure TRight.SetOperatorPower(poPowerList:TStringList);
begin
  FoPowerList := poPowerList;
end;FoPowerList 为类TRight的私有成员

Answer 1

FoPowerList:=TStringList.Create;
FoPowerList := poPowerList;

Answer 2

procedure TRight.SetOperatorPower(poPowerList:TStringList);
begin
  if not Assigned(FoPowerList) then
    FoPowerList := TStringList.Create;
  FoPowerList.Assign(poPowerList);
end;

Answer 3

FoPowerList:=TStringList.Create;
FoPowerList := poPowerList;
这样就行

Answer 4

var
  a,b:TStrings;
begin
  try
    a:=TStringList.Create;
    b:=TStringList.Create;
    a.Add('Hello');
    b.Assign(a);
  finally
    a.Free;
    b.Free;
  end;
end;

Answer 5

procedure TRight.SetOperatorPower(poPowerList:TStringList);
begin
  if not Assigned(FoPowerList) then
    FoPowerList := TStringList.Create;
  FoPowerList.Assign(poPowerList);
end;