t_id
715
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
1022821544 | 1027394 | True | False | Successfully run |
Record count: 1
{$mode objfpc} uses sysUtils; type t = object f:integer; function m: AnsiString; end; function t.m: AnsiString; begin result:=IntToStr(f); end; var ti:t; begin ti.f:=1; // no vmt for t - constructor call is not needed writeln(format('%s', [ti.m])); // this works writeln(format('%s, %s', [ti.m, ti.m])); // this does not - the same story with classes end.