請問一下  要怎樣寫出 中英文字的比對  類似word的search那樣 還有  如果我把字串存到string 變數 word中 我怎樣一個一個字的從word中取出一個一個的字

這樣？

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;

--- 每個人都是一本書

謝謝  這只是說明怎樣取出一個一個的字 我的主要問題是在於怎樣作像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的功能

不太明白你的意思哦， 如果是想做查找画面，可以用TFindDialog,在Dialogs页 =============== 久病成良医-多试

------
江上何人初见月，江月何年初照人