如何uppercase 字串的某些字 |
尚未結案
|
Sanyuan
一般會員 發表:24 回覆:32 積分:11 註冊:2002-06-23 發送簡訊給我 |
|
sryang
尊榮會員 發表:39 回覆:762 積分:920 註冊:2002-06-27 發送簡訊給我 |
|
channel
尊榮會員 發表:67 回覆:707 積分:854 註冊:2002-05-02 發送簡訊給我 |
您用這段程式試試看:
procedure TForm1.BitBtn1Click(Sender: TObject); var aStr, aOldStr, aNewStr: String; begin aOldStr := 'and'; aNewStr := UpperCase(aOldStr); aStr := 'Select * From TestTable Where a=1 and b=2 and c=3 and d=4'; aStr := StringReplace(aStr,aOldStr,aNewStr,[rfReplaceAll]); ShowMessage(aStr); end;~小弟淺見,參考看看~
------
~小弟淺見,參考看看~ |
ccchen
版主 發表:61 回覆:940 積分:1394 註冊:2002-04-15 發送簡訊給我 |
引言: 小第想要自動uppercase user keyin的某些關鍵字 例 將 and uppercase select * from TESTTABLE where a='1' and b='2' and c='3' and d='4' 之前有用pos的方式.但也只能找到第一個and 第二個以後就不知道怎麼找了 請教各位1. 可以看一下 fetch 函數 2. 既是user Keyin的,為何不在元件(如TEdit, TDBEdit)之Keyboard Event或onChange上直接轉成大寫更方便, user也才知道實際被轉成了大寫 |
timhuang
尊榮會員 發表:78 回覆:1815 積分:1608 註冊:2002-07-15 發送簡訊給我 |
我來補充一下 channel 兄的部分, 因為 channel 兄寫的會少了一些條件, 如:
aND, And, AnD.. 等等, 可以將 StringReplace() 裡的條件再多加上 rfIgnoreCase, 就是:
procedure TForm1.BitBtn1Click(Sender: TObject); var aStr, aOldStr, aNewStr: String; begin aOldStr := 'and'; aNewStr := UpperCase(aOldStr); aStr := 'Select * From TestTable Where a=1 and b=2 and c=3 and d=4'; aStr := StringReplace(aStr,aOldStr,aNewStr,[rfReplaceAll,rfIgnoreCase]); ShowMessage(aStr); end; |
Sanyuan
一般會員 發表:24 回覆:32 積分:11 註冊:2002-06-23 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |