mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-13 00:49:31 +02:00
ae45a80d46
of properties (mantis #10492). Not really clean (and Delphi supports full expressions, e.g. also "(const1=const2)"), but cannot do better without rewriting the complete symlist parsing to use parse trees instead of parser tokens as input git-svn-id: trunk@12696 -
22 lines
232 B
ObjectPascal
22 lines
232 B
ObjectPascal
unit uw10492;
|
|
|
|
{$mode objfpc}
|
|
|
|
interface
|
|
|
|
const
|
|
ISSTORED = false;
|
|
|
|
type
|
|
TTest = class
|
|
private
|
|
Faaaa: String;
|
|
published
|
|
property AAAA: String read Faaaa write Faaaa stored ISSTORED;
|
|
end;
|
|
|
|
implementation
|
|
|
|
begin
|
|
end.
|