Object clonen?

[Phoenix]

Zitat von Bernhard Geyer:

Delphi-Quellcode:

procedure TMyList.Assign(Source: TMyList);
var
  i: Integer;
  CloneItem: TMyCollectionItem;
begin
  for i := 0 to Length-1     
  begin
    CloneItem := TMyCollectionItem.Create;
    CloneItem.Assign(Source.Items[i]);
    Add(CloneItem);
  end;
end;

Müsste das nicht

Code:

for i := 0 to Source.Length - 1

heissen?