怎樣做出中英文字比對的程式 |
尚未結案
|
totodog
一般會員 發表:13 回覆:3 積分:3 註冊:2003-05-29 發送簡訊給我 |
|
hagar
版主 發表:143 回覆:4056 積分:4445 註冊:2002-04-14 發送簡訊給我 |
這樣?
var s: string; i: integer; begin s := 'I喜歡Delphi哩!'; i := 1; while i <= Length(s) do begin if IsDBCSLeadByte(Byte(s[i])) then begin ShowMessage(s[i] + s[i+1]); Inc(i, 2); end else begin ShowMessage(s[i]); Inc(i); end; end; end;--- 每個人都是一本書 |
totodog
一般會員 發表:13 回覆:3 積分:3 註冊:2003-05-29 發送簡訊給我 |
謝謝 這只是說明怎樣取出一個一個的字
我的主要問題是在於怎樣作像word中的search的功能也就是字串比對
for example: temp:='電腦';
MSWord:=CreateOleObject('Word.Basic');
MSWord.FileOpen('d:\test.doc'); MSWord.EditFind(temp,,0,0,False,0,0);
if MSWord.EditFindFound then
Edit1.Text:='good'
Else
Edit1.Text:='oh'; 就是作像EditFindFound的功能
|
mustapha.wang
資深會員 發表:89 回覆:409 積分:274 註冊:2002-03-13 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |