blob: 73f04a3e9dfe709b5124913342f44544a31aaeaf (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
{ Source provided for Free Pascal Bug Report 2956 }
{ Submitted by "Marco (Gory Bugs Department)" on 2004-02-08 }
{ e-mail: }
program something;
{$mode Delphi}
Uses uw2956;
type
localclassfields = class(aclasswithfields)
end;
classwithmethod = class
procedure xx;
end;
procedure classwithmethod.xx;
var ll : aclasswithfields;
begin
writeln(localclassfields(ll).field1); // goes ok.
with localclassfields(ll) do // typecast.
writeln(field1);
end;
begin
end.
|
