TP3/shell/tests/fixtures/t112_strchar.pas

program t112_strchar;
var S:string[10];
begin
 S := 'abc';
 if S <> Chr($FF) then writeln('ne');
 S := Chr($FF);
 if S = Chr($FF) then writeln('eq');
 if S <> 'x' then writeln('ne2')
end.