23 lines
216 B
ObjectPascal
23 lines
216 B
ObjectPascal
|
unit u4;
|
|||
|
|
|
|||
|
|
interface
|
|||
|
|
|
|||
|
|
uses WPFObjects;
|
|||
|
|
|
|||
|
|
type TClass = class
|
|||
|
|
f := Window;
|
|||
|
|
function myf := Window;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
implementation
|
|||
|
|
|
|||
|
|
uses WPFObjects;
|
|||
|
|
|
|||
|
|
procedure f;
|
|||
|
|
begin
|
|||
|
|
var w := Window;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
var w := Window;
|
|||
|
|
end.
|