t_id
959
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
525416437 | 948178 | True | False | Successfully run |
Record count: 1
{ Source provided for Free Pascal Bug Report 2454 } { Submitted by "Nikolay Nikolov" on 2003-04-06 } { e-mail: nickysn1983@netscape.net } {$MODE objfpc} Program Test; Type TFunClass = Class(TObject) Class Procedure FunProc(q : TFunClass); data : Integer; End; Class Procedure TFunClass.FunProc(q : TFunClass); Begin Writeln(q.data); With q Do Begin Writeln(q.data); Writeln(data); { fpc 1.1 says: Error: Only class methods can be accessed in class methods this is a bug, because 'data' actually means 'q.data' due to the 'with' statement, (this can be seen if you make this a normal method by removing the 'Class' keyword and running the program, it will writeln q.data, not self.data) so it shouldn't cause an error } End; End; Var c1, c2 : TFunClass; Begin c1 := TFunClass.Create; c2 := TFunClass.Create; c1.data := 5; c2.data := 7; c1.FunProc(c2); c1.Destroy; c2.Destroy; End.