請問 如何插入 # 符號?
在文字檔中是如下
能夠/能幹 able
大約/差不多 about
在上面 above
依照 according
橫過/交叉 across
行為/行動 act
行動/行為 action
演員/優伶 actor
女演員/女星 actress
增加 add
住址/演說 address
成人 adult
害怕/恐怕 afraid
在…之後 after
午後/下午 afternoon
再一次 again
.........................
.........................(共6400條)
想繁體字之後插入 #
或
英文字字之前插入 #
能夠/能幹 # able
大約/差不多 # about
在上面 # above
依照 # according
橫過/交叉 # across
行為/行動 # act
行動/行為 # action
演員/優伶 # actor
女演員/女星 # actress
增加 # add
住址/演說 # address
成人 # adult
害怕/恐怕 # afraid
在…之後 # after
午後/下午 # afternoon
再一次 # again
.........................
.....................
填入後存檔 該如何寫呢?

1. 開檔、讀入
2. 取出每一段
3. 判斷中文字，找到結尾
4. 然後拆成兩段
5. 重新合併，並加入 #

以上每個步驟，站上有範例，請自己做點功課

該如何  拆成兩段 呢?? 指點方法.......

RTFM Yourself.

in Delphi help:
file management routines
string functions:MBCS
string handling routines

------
不論是否我發的文，在能力範圍皆很樂意為大家回答問題。
為了補我的能力不足之處，以及讓答案可以被重複的使用，希望大家能儘量以公開的方式問問題。
在引述到我的文時自然會儘量替各位想辦法，謝謝大家！

看了一下每行的內容, 如果都是很規則的中文字/空白/英文字的話
那把空白字元以 空白#空白 取代, 例:
<textarea class="delphi" rows="10" cols="60" name="code"> var sl: TStringList; begin sl := TStringList.Create; try sl.LoadFromFile('C:\xx.txt'); sl.Text := StringReplace(sl.Text, ' ', ' # ', [rfReplaceAll]); sl.SaveToFile('C:\xx.txt'); finally sl.Free; end; end; </textarea>

謝謝 hagar 一語道破