全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:935
推到 Plurk!
推到 Facebook!

怎样让字母B转换+1?

缺席
sl@cableplus.com.cn
高階會員


發表:168
回覆:359
積分:130
註冊:2004-03-26

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-05-11 17:03:50 IP:218.80.xxx.xxx 未訂閱
我想得到一个字母,然后用函数转换 1得到后一个字母 例如:我得到B我想加1得到C值 我得到M我想加1得到N值 请教
change.jian
版主


發表:29
回覆:620
積分:439
註冊:2003-06-02

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-05-11 17:28:04 IP:61.222.xxx.xxx 未訂閱
var
  chr:Char;
begin
  chr:='A';
  inc(chr);
  ShowMessage(chr); //chr = 'B'
end;
Fishman
尊榮會員


發表:120
回覆:1949
積分:2163
註冊:2006-10-28

發送簡訊給我
#3 引用回覆 回覆 發表時間:2004-05-11 17:28:40 IP:210.65.xxx.xxx 未訂閱
Hi sl@cableplus.com.cn,    
procedure TForm1.Button1Click(Sender: TObject);
var
    xx : Char;
begin
    xx := 'B';
    ShowMessage(Chr(Ord(xx) 1));
end;
---------------------------------- 小弟才疏學淺,若有謬誤尚請不吝指教 ----------------------------------
------
Fishman
sl@cableplus.com.cn
高階會員


發表:168
回覆:359
積分:130
註冊:2004-03-26

發送簡訊給我
#4 引用回覆 回覆 發表時間:2004-05-11 17:51:50 IP:218.80.xxx.xxx 未訂閱
我的B并不是常量,我是从QRY里取出来的,可能是ABC也可能是1,2,3,请教该怎么解决? 我是要判断如果是字母就要自动加一,取出的值是A就变B ,取出的是M就变N 谢谢帮助
sl@cableplus.com.cn
高階會員


發表:168
回覆:359
積分:130
註冊:2004-03-26

發送簡訊給我
#5 引用回覆 回覆 發表時間:2004-05-11 17:58:36 IP:218.80.xxx.xxx 未訂閱
var MaxLetter :char MaxLetter := chr(ord(QryMaxLetter.FieldByName('Qty').AsString) 1); 运行后显示类型错误?
hagar
版主


發表:143
回覆:4056
積分:4445
註冊:2002-04-14

發送簡訊給我
#6 引用回覆 回覆 發表時間:2004-05-11 18:07:51 IP:202.39.xxx.xxx 未訂閱
試試:
var 
  MaxLetter :char
begin
  if Ord(QryMaxLetter.FieldByName('Qty').AsString[1]) in [65..90] then // A..Z
  MaxLetter := chr(ord(QryMaxLetter.FieldByName('Qty').AsString[1])   1);
end; 
系統時間:2024-06-15 3:01:17
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!