От: | Serginio1 | https://habrahabr.ru/users/serginio1/topics/ | |
Дата: | 11.02.05 12:03 | ||
Оценка: |
pnb>procedure Clone(Src: TSomeObject; var Result : TSomeObject);
pnb>var
pnb> i: integer;
pnb>begin
pnb> for i := 0 to Src.Count - 1 do
pnb> Result.Items[i] := Src.Items[i];
pnb>end;
pnb>