一個寫字版的問題

一個寫字版的問題 Delphi / Windows SDK/API
http://www.delphi2007.net/DelphiMultimedia/html/delphi_2006121410563659.html
我用DELPHI做了一個寫字版，在用到尋找替換功能的時候，不能全部替換，只能尋找一個替換掉一個，否則就增加。  
  問，怎麼解決

使用TReplaceDialog控制項，在OnReplace裡寫  
  if   frReplaceAll   in   ReplaceDialog.Options   then   //全部替換  
   
  替換代碼要你自己寫，可以用StringReplace函數

老之   升星     散分了..

up

多少分是   3   星呵呵