mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 10:38:14 +02:00
29 lines
304 B
ObjectPascal
29 lines
304 B
ObjectPascal
unit uw35918a;
|
|
|
|
{$mode objfpc}{$H+}
|
|
{$ModeSwitch prefixedattributes}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, uw35918c;
|
|
|
|
type
|
|
|
|
{ TTest1 }
|
|
|
|
{ TTest2 }
|
|
|
|
TTest2 = class
|
|
private
|
|
FField2: String;
|
|
published
|
|
[Attruvute()]
|
|
property Field2: String read FField2;
|
|
end;
|
|
|
|
implementation
|
|
|
|
end.
|
|
|