t_id
823
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
Record count: 50
Total = 50
OK=50 Percentage= 100.00
{$ifdef fpc}{$mode objfpc}{$endif} uses sysutils; const fname = 'Makefile'; ThisDir = '.'+DirectorySeparator; var fn : string; begin fn:=FileSearch(fname,PathSeparator); writeln('found: ',fn); if fn<>fname then halt(1); fn:=FileSearch(ThisDir+fname,PathSeparator); writeln('found: ',fn); if fn<>ThisDir+fname then halt(1); end.