t_id
1526
t_adddate
2005/03/15
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/09/26 18:42:00 90 | 2024/09/26 23:02:00 44 | |
i386 | 4 | 8.0 | 2024/09/26 19:54:00 70 | 2024/09/26 22:38:00 79 | |
powerpc | 14 | 28.0 | 2024/09/26 19:41:00 35 | 2024/09/26 23:02:00 44 | |
powerpc64 | 17 | 34.0 | 2024/09/26 18:42:00 90 | 2024/09/26 22:29:00 103 | |
wasm32 | 7 | 14.0 | 2024/09/26 19:31:00 339 | 2024/09/26 22:50:00 299 | |
riscv64 | 8 | 16.0 | 2024/09/26 19:14:00 123 | 2024/09/26 19:59:00 123 | |
linux | 39 | 78.0 | 2024/09/26 18:42:00 90 | 2024/09/26 23:02:00 44 | |
go32v2 | 4 | 8.0 | 2024/09/26 19:54:00 70 | 2024/09/26 22:38:00 79 | |
wasi | 7 | 14.0 | 2024/09/26 19:31:00 339 | 2024/09/26 22:50:00 299 | |
3.3.1 | 34 | 68.0 | 2024/09/26 18:42:00 90 | 2024/09/26 22:50:00 299 | |
3.2.3 | 16 | 32.0 | 2024/09/26 21:17:00 71 | 2024/09/26 23:02:00 44 |
{ Source provided for Free Pascal Bug Report 3595 } { Submitted by "Martin Schreiber" on 2005-01-24 } { e-mail: } program project1; {$ifdef FPC} {$mode objfpc}{$H+} {$endif} uses Classes,sysutils; type ttest = class(tcomponent) private fwstr: widestring; published property wstr: widestring read fwstr write fwstr; end; const textfilename = 'test.txt'; var test1,test2: ttest; memstream: tmemorystream; filestream: tfilestream; function widestringtocharinfo(const str: widestring): string; var int1: integer; begin result:= ''; for int1:= 1 to length(str) do begin result:= result + '#' + inttostr(ord(str[int1])); end; end; begin test1:= ttest.create(nil); test2:= ttest.create(nil); with test1 do begin setlength(fwstr,3); fwstr[1]:= widechar(255); fwstr[2]:= widechar(256); fwstr[3]:= widechar(257); fwstr:= fwstr + #0#1'abcde'#127#128#129; end; try filestream:= tfilestream.create(textfilename,fmopenread); memstream:= tmemorystream.create; try objecttexttobinary(filestream,memstream); writeln('objecttexttobinary OK'); try memstream.position:= 0; memstream.readcomponent(test2); writeln('object reading OK'); if test1.wstr = test2.wstr then begin writeln('data OK'); end else begin writeln('data wrong. expected:'); writeln(widestringtocharinfo(test1.wstr)); writeln('actual:'); writeln(widestringtocharinfo(test2.wstr)); end; except on e: exception do begin writeln('object reading fails: '+ e.message); end; end; except on e: exception do begin writeln('objecttexttobinary fails: '+e.message); end; end; filestream.free; memstream.free; except writeln('file '+textfilename+' not found.'); end; filestream:= tfilestream.create(textfilename,fmcreate); memstream:= tmemorystream.create; memstream.writecomponent(test1); memstream.position:= 0; objectbinarytotext(memstream,filestream); memstream.free; filestream.free; test1.free; test2.free; end.