Adventures in Generics

[carl_caulkett]

The eagle-eyed amongst you will no doubt have spotted the glaring error...

Code: Pascal  [Select][+][-]

1. procedure TcaVectorBase.Assign(Source: TcaVectorBase);
2. var
3.   Index: Integer;
4.   P: Pointer;
5. begin
6.   Clear;
7.   for Index := 0 to Pred(Source.Count) do
8.     begin
9.       GetMem(P, GetElementSize);
10.       Move(Source.Pointers[Index]^, P^ {missing ^}, GetElementSize);
11.       FList.Add(P);
12.     end;
13. end;
14.  

Cheers,
Carl