t_id
1431
t_adddate
2005/01/03
t_result
0
t_knownrunerror
0
Record count: 50
Total = 50
OK=50 Percentage= 100.00
Result type | Cat. | Count | Percentage | First date | Last Date |
Successfully run | 50 | 100.0 | 2024/05/18 01:10:00 32 | 2024/05/18 01:53:00 0 | |
i386 | 32 | 64.0 | 2024/05/18 01:10:00 32 | 2024/05/18 01:53:00 0 | |
x86_64 | 15 | 30.0 | 2024/05/18 01:28:00 26 | 2024/05/18 01:53:00 0 | |
aarch64 | 3 | 6.0 | 2024/05/18 01:29:00 34 | 2024/05/18 01:46:00 37 | |
linux | 49 | 98.0 | 2024/05/18 01:10:00 32 | 2024/05/18 01:53:00 0 | |
go32v2 | 1 | 2.0 | 2024/05/18 01:45:00 54 | 2024/05/18 01:45:00 54 | |
3.3.1 | 29 | 58.0 | 2024/05/18 01:26:00 31 | 2024/05/18 01:53:00 0 | |
3.2.3 | 21 | 42.0 | 2024/05/18 01:10:00 32 | 2024/05/18 01:52:00 0 |
{ Source provided for Free Pascal Bug Report 3499 } { Submitted by "Bart Tierens" on 2005-01-02 } { e-mail: svg@deds.nl } program test; {$mode delphi} uses SysUtils; type TProcedure = procedure of object; Class1 = class public proc: TProcedure; procedure p(const aproc: TProcedure); end; Class2 = class public procedure d(); end; procedure Class1.p(const aproc: TProcedure); begin proc := aproc; end; procedure Class2.d(); begin writeLn('procedure called'); end; var c: Class1; e: Class2; begin c := Class1.create(); e := Class2.create(); c.p(e.d); end.