如何讓 ReplaceDialog 直接做取代動作, 不跳出對話盒 ? |
|
答題得分者是：supman
|
|
pcboy
版主   發表：177 回覆：1838 積分：1463 註冊：2004-01-13 發送簡訊給我 |
如何讓 ReplaceDialog 直接做取代動作, 不跳出對話盒 ? Google 找到的用法都是, 跳出對話盒, 取得值
ReplaceDialog1.Execute; Fstr:=ReplaceDialog1.FindText; Rstr:=ReplaceDialog1.ReplaceText;這樣會跳出對話盒 ReplaceDialog1.FindText:='AAA'; ReplaceDialog1.ReplaceText:= 'abc'; ReplaceDialog1.Execute;會發生錯誤, Google 找不到 ReplaceDialog1.ExecuteAction 用法 var a : TBasicAction; begin ReplaceDialog1.FindText:='Memo'; ReplaceDialog1.ReplaceText:= 'memo'; ReplaceDialog1.ExecuteAction(a);發表人 - pcboy2 於 2005/06/24 10:56:53
------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！ 子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！ |
|
supman
尊榮會員  發表：29 回覆：770 積分：924 註冊：2002-04-22 發送簡訊給我 |
|
|
change.jian
版主 發表：29 回覆：620 積分：439 註冊：2003-06-02 發送簡訊給我 |
|
|
pcboy
版主 發表：177 回覆：1838 積分：1463 註冊：2004-01-13 發送簡訊給我 |
下面 Compile 正常, 但是執行結果沒有替換, WHY ?
procedure TForm1.Button1Click(Sender: TObject); begin Memo1.Text:= 'Memo1 MEmo2'; StringReplace(Memo1.Text, 'MEMO', 'ABCD', [rfReplaceAll, rfIgnoreCase]); end;
------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！ 子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！ |
|
supman
尊榮會員 發表：29 回覆：770 積分：924 註冊：2002-04-22 發送簡訊給我 |
|
|
pcboy
版主 發表：177 回覆：1838 積分：1463 註冊：2004-01-13 發送簡訊給我 |
引言: 您好: 仔細看,他是function S:=StringReplace(S,' ','',[rfReplaceAll]);function 不傳回值也會執行, 就算修改如下, 也是沒有取代發生 procedure TForm1.Button1Click(Sender: TObject); var s: String; begin Memo1.Text:= 'Memo1 MEmo2'; s:=StringReplace(Memo1.Text, 'Memo1', 'ABCD', [rfReplaceAll]); end;
------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！ 子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！ |
|
change.jian
版主 發表：29 回覆：620 積分：439 註冊：2003-06-02 發送簡訊給我 |
|
|
supman
尊榮會員 發表：29 回覆：770 積分：924 註冊：2002-04-22 發送簡訊給我 |
|
|
pcboy
版主 發表：177 回覆：1838 積分：1463 註冊：2004-01-13 發送簡訊給我 |
成功了, 感謝大家
procedure TForm1.Button1Click(Sender: TObject); begin Memo1.Text:= 'Memo1 MEmo2'; Memo1.Text:=StringReplace(Memo1.Text, 'MeMo', 'ABCD', [rfReplaceAll, rfIgnoreCase]); end;
------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！ 子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！ |
發表時間：2005-06-24 10:30:48
IP:210.69.xxx.xxx 未訂閱
系統時間：2025-03-05 23:29:40
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |