pmbergla@watcgl.waterloo.edu (Per Bergland) (06/07/91)
Is this a known bug, and what can I do about it? const kString = 'HOXWSF'; var c:char;r:integer; begin c := 'O'; r := Pos('O',kString); => r = 2 r := Pos('O','HOXWSF'); => r = 2 r := Pos(c,kString); => r = 1 for any c r := Pos(c,'HOXWSF'); => r = 1 for any c end; MPW Shell 3.3something Pascal 3.2b6 Link 3.2b6.4