mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 08:07:56 +02:00
27 lines
288 B
ObjectPascal
27 lines
288 B
ObjectPascal
unit uw35918b;
|
|
|
|
{$mode objfpc}{$H+}
|
|
{$ModeSwitch prefixedattributes}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, uw35918c;
|
|
|
|
type
|
|
|
|
{ TTest1 }
|
|
|
|
TTest1 = class
|
|
private
|
|
FField1: String;
|
|
published
|
|
[Attruvute()]
|
|
property Field1: String read FField1;
|
|
end;
|
|
|
|
implementation
|
|
|
|
end.
|
|
|