paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 21:09:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* 1.0 version of assign

Browse Source
This commit is contained in:
marco 2003-10-07 14:30:57 +00:00
parent e55017a946
commit cf5bc573cf
1 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
fcl/classes/lists.inc
View File

@ -359,6 +359,16 @@ begin
QuickSort (Flist, 0, FCount-1,Compare);
end;
procedure TList.Assign(Obj:TList);
// Principle copied from TCollection
var i : Integer;
begin
Clear;
For I:=0 To Obj.Count-1 Do
Add(Obj[i]);
end;
{****************************************************************************}
{* TThreadList *}
{****************************************************************************}
@ -440,7 +450,10 @@ end;
{
$Log$
Revision 1.1 2003-10-06 20:33:58 peter
Revision 1.2 2003-10-07 14:30:57 marco
* 1.0 version of assign
Revision 1.1 2003/10/06 20:33:58 peter
* classes moved to rtl for 1.1
* classes .inc and classes.pp files moved to fcl/classes for
backwards 1.0.x compatiblity to have it in the fcl