Why Gemfury?
Push, build, and install
RubyGems
npm packages
Python packages
Maven artifacts
PHP packages
Go Modules
Debian packages
RPM packages
NuGet packages
Repository URL to install this package:
|
Version:
1.6 ▾
|
lazarus
/
usr
/
share
/
lazarus
/
1.6
/
components
/
codetools
/
examples
/
scanexamples
/
assignexample1.pas
|
|---|
unit AssignExample1;
{$mode objfpc}{$H+}
interface
uses
Classes, sysutils;
type
{ TMyPersistent }
TMyPersistent = class(TComponent)
private
FMyInt: integer;
public
procedure CopyFrom(Src: TMyPersistent);
property MyInt: integer read FMyInt write FMyInt;
end;
implementation
{ TMyPersistent }
procedure TMyPersistent.CopyFrom(Src: TMyPersistent);
begin
end;
end.