奶奶的case,求助(100分)

lostinnet · 2002-11-14

case语句用于被判断的变量可以是整型、字符型（char）、枚举、子界型。
现在的问题是我要从一个string中取出一个字符，怎样把他转换成char用于case中。

shijunwu · 2002-11-14

string

xyl999 · 2002-11-14

copy();

lostinnet · 2002-11-14

shijunwu: string 是什么意思
xyl999:
copy不行，不能从string到char

ysai · 2002-11-14

s:='abcdeft';
s[1]='a' char型
s[2]='b'
.......

小小K · 2002-11-14

用数组来代替string

xyl999 · 2002-11-14

var
c : Char;
s : string;
begin
s := '12345678';
c := s[m];
end;

delphi浪客 · 2002-11-14

procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
begin
s := 'ssfjs';
case s[1] of
's': beep;
end;
end;

山泉 · 2002-11-14

var
s:string[45] //表示一个45个字符的shortstring 字符串
从定义出发，理解字符和字符串

dragonlee007 · 2002-11-14

都是case 惹的禍

beta · 2002-11-14

唉，我写篇心得，就是为解决那么多新手的这个问题，可是……
在这里，这个问题已经写的很清楚了：

http://www.delphibbs.com/delphibbs/dispq.asp?lid=1358621

jsxjd · 2002-11-14

s:='123abcd';

s[4] 就是 'a'

stargazer · 2002-11-20

帖子的题目文明一点儿，好不好，好歹都是受过高等教育的……

abos · 2002-11-20

var
s:array[0..21] of char;
a:string;
begin
a:='abcdefg';
lstrcpy(s,pchar(a));
end.
//得出
//s[0]=a
//s[1]=b
........

wangzheking · 2002-11-29

string本身就是一個Char型的數組