|
|
Resolution Entries for Report #33827
| Resolution |
Full Name |
Date Changed |
Build |
| Need More Info |
Jason Sprenger |
12/20/2007 1:52:10 PM |
11.0.2902.10471 |
| Comment: Attempting to create a test case, I came up with following program.
Is this what you are talking about? I'm not able to get this to compile because the syntax for the attribute applied to TestInt.
program Test;
{$APPTYPE CONSOLE}
type
TMyClass = class
fTestBool: Boolean;
fTestInt: Integer;
property TestBool: Boolean read fTestBool write fTestBool default true;
[DefaultValue(0)]
property TestInt: Integer read fTestInt write fTestInt;
end;
var
MyClass: TMyClass;
begin
MyClass := TMyClass.Create;
WriteLn(MyClass.ClassName);
end.
|
|
|
|
Server Response from: ETNACODE01
Connect with Us