t_id
851
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
64063125 | 872907 | True | False | Successfully run |
Record count: 1
{$mode objfpc} uses Sysutils; procedure store (Handle: Pointer; const FileName: PChar; ErrorStruct: Pointer); cdecl; alias:'store'; procedure yes (const aa: AnsiString); begin writeln(aa); end; begin try yes (FileName); except on e: Exception do begin end; end; end; procedure extstore(h:pointer;filename:pchar;errorstr:pointer);external name 'store'; begin extstore(nil,'test',nil); end.