mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 11:18:18 +02:00
e97a2cb03e
Note: this also means that TCustomAttribute itself can not be used as an attribute * adjusted existing tests + added test git-svn-id: trunk@42471 -
30 lines
369 B
ObjectPascal
30 lines
369 B
ObjectPascal
unit ucustomattr14a;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
type
|
|
TTestAttribute = class(TCustomAttribute)
|
|
constructor Create;
|
|
end;
|
|
|
|
TTest2Attribute = class(TCustomAttribute)
|
|
constructor Create(const aStr: String);
|
|
end;
|
|
|
|
implementation
|
|
|
|
constructor TTestAttribute.Create;
|
|
begin
|
|
|
|
end;
|
|
|
|
constructor TTest2Attribute.Create(const aStr: String);
|
|
begin
|
|
|
|
end;
|
|
|
|
end.
|
|
|