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
28
29
30
31
32
33
34
35
36
37
38
39
40
|
unit rt_explodewith;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils;
type
{ TMyClass }
TMyClass = class
public
Parent: TMyClass;
Left: string;
procedure DoSomething;
end;
implementation
{ TMyClass }
procedure TMyClass.DoSomething;
var
R1: TRect;
begin
R1:=Rect(1,2,3,4);
with R1 do
{explodewith:R1}Left:=4;
if R1.Left= 4 then ;
with Parent do
{explodewith:Parent}Left:='A';
with Parent.Parent do
{explodewith:Parent}Left:='A';
end;
end.
|
