mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-05 20:52:40 +02:00
33 lines
398 B
ObjectPascal
33 lines
398 B
ObjectPascal
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.
|
|
|