小第想要自動uppercase user keyin的某些關鍵字 例 將 and uppercase select * from TESTTABLE where a='1' and b='2' and c='3' and d='4' 之前有用pos的方式.但也只能找到第一個and 第二個以後就不知道怎麼找了 請教各位

有一個方法 1.將字串拆開，放進 StringList 2.把 StringList 巡一遍，uppercase 要變成大寫的字 3.重新組合成一個字串 加油喔，喵～

------
歡迎參訪 "腦殘賤貓的備忘錄" http://maolaoda.blogspot.com/

您用這段程式試試看：

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;

~小弟淺見，參考看看~

------
~小弟淺見，參考看看~

引言: 小第想要自動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也才知道實際被轉成了大寫

我來補充一下 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;

小弟的需求是在user keyin的時候 將某些關鍵字改為大寫 並更改顏色 我想使用 StringReplace 應該就可以了 謝謝各位