procedure TForm1.Button1Click(Sender: TObject); begin str1 :='copy('ABC',2,1)'; //注意:不是 edit1.Text :=copy('ABC',2,1); //請問如何得到結果為 'B' end;

btcn1223您好    咦? Result:=copy('ABC',2,1); 照這樣看來,結果就是'B'

var
  st:string;
  c:char;
begin
  st:=copy('ABC',2,1);
  c:=st[1];
  ShowMessage(char(c));
end;

能否再說明一下您的問題在那裡?

引言: btcn1223您好 咦? Result:=copy('ABC',2,1); 照這樣看來,結果就是'B'

var
  st:string;
  c:char;
begin
  st:=copy('ABC',2,1);
  c:=st[1];
  ShowMessage(char(c));
end;

能否再說明一下您的問題在那裡?

請注意： st:='copy('ABC',2,1)'; // 必須加上引號'',此語法是儲存在資料庫 不是 st:=copy('ABC',2,1);

Hi btcn1223,    如果是語法寫成 DataBase 可以解讀的方式，然後於前端再組成 SQL Command 丟給 DataBase 去幫你處理，不知此方式是否可行？ ---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

Fishman 您好:

引言: Hi btcn1223, 如果是語法寫成 DataBase 可以解讀的方式，然後於前端再組成 SQL Command 丟給 DataBase 去幫你處理，不知此方式是否可行？ < face="Verdana, Arial, Helvetica"> 1.因為考慮到不同的Ｄatabase 所支援的函數語法不盡相同，如果能夠在 Delphi 中將最後結果處理之後再丟給資料庫執行，維護起來應該比較簡單 2.如果沒有其他解決方式，應該也只有這樣，或是考慮用Store Procedure 的方式

btcn1223 你好:    因小弟前一陣子, 正好做相關的 "Script Engine".    程序有點麻煩...如果只是拿來處理一種 Command ( Copy ), 好像不太合適...    若有興趣, 再 po. 您也可以用 "

btcn1223 你好 你要的應該是類似執行時期的直譯器或Script引擎吧，在站上輸入[parser]或[interpreter]或[Script]可以找到很多資源，還有些免費元件可用喔。 只是要找到完全合用的，可能要多試試了。