s:string; f:TextFile;    Readln(f,s);    s為'今天?天氣好嗎!'    要如何將s中之'?'拿掉呢?    新手上路，請多指教!

------
小妹新手上路，如果問的太白痴，請大家包含

var
  iPos: integer;
  s: string;
begin
  // ...
  iPos := Pos('?', s);
  if iPos > 0 then
    Delete(s, iPos, 1);
  // ...
end;

-- 歡迎光臨 KTop 研究院!

啊~~~ 答案原來就在眼前 我在那裡搞widestring...弄了老半天 呵呵呵 感恩啦~~~

------
小妹新手上路，如果問的太白痴，請大家包含

first:='娛樂稅稅籍 七月全面清查'; temp:='<>/\*?|:"'; for k:=1 to 9 do begin iPos := Pos(temp[k], first); if iPos > 0 then Delete(first, iPos, 1); end; first 這個字串裡沒有temp裡頭那些符號啊? 為什麼ipos會大於零?? 小妹新手上路，如果問的太白痴，請大家包含

------
小妹新手上路，如果問的太白痴，請大家包含

中文字改用 AnsiPos 這個函式取代 Pos 函式就不會了    -- 歡迎光臨 KTop 研究院!