t_id
54
t_version
1.1
t_adddate
2003/10/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/21 01:50:00 27 | 2024/05/21 02:24:00 0 | |
i386 | 17 | 34.0 | 2024/05/21 01:50:00 27 | 2024/05/21 02:24:00 0 | |
x86_64 | 31 | 62.0 | 2024/05/21 01:52:00 22 | 2024/05/21 02:24:00 0 | |
aarch64 | 2 | 4.0 | 2024/05/21 02:03:00 35 | 2024/05/21 02:19:00 42 | |
linux | 49 | 98.0 | 2024/05/21 01:50:00 27 | 2024/05/21 02:24:00 0 | |
win32 | 1 | 2.0 | 2024/05/21 02:04:00 34 | 2024/05/21 02:04:00 34 | |
3.3.1 | 30 | 60.0 | 2024/05/21 01:50:00 27 | 2024/05/21 02:24:00 0 | |
3.2.3 | 20 | 40.0 | 2024/05/21 01:51:00 35 | 2024/05/21 02:24:00 0 |
{ %VERSION=1.1 } {$mode objfpc} type ITest = interface(IUnknown) procedure DoSomething; end; TMyClass = class(TInterfacedObject, ITest) procedure DoSomething; end; var i : longint; procedure TMyClass.DoSomething; begin inc(i); end; procedure DoTest(const ATest: ITest); begin ATest.DoSomething; end; procedure DoTest2(ATest: ITest); begin ATest.DoSomething; end; var c: TMyClass; begin i:=0; c := TMyClass.Create; DoTest(c); DoTest2(c); c.Free; if i<>2 then begin writeln('Problem with passing interfaces as parameters'); halt(1); end; end.