程序功能:
把输入到Edit中的字符串的第一个字母用ShowMessage显示出来。假设输入的全为中文。
----------------------------------------------------------------------疑问:
程序中字义的temp是动态字符数组吧,动态数组的下标是以0开始的吧,但是写成temp[0],
就会出错,这是为什么?“temp:String”定义的不是动态数组吗?谢谢!-----------------------------------------------------------------------
代码:
procedure TForm1.RzBitBtn1Click(Sender: TObject);
var
temp:String;
begin
temp:=RzEdit1.Text;
ShowMessage(temp[1]);
end;
把输入到Edit中的字符串的第一个字母用ShowMessage显示出来。假设输入的全为中文。
----------------------------------------------------------------------疑问:
程序中字义的temp是动态字符数组吧,动态数组的下标是以0开始的吧,但是写成temp[0],
就会出错,这是为什么?“temp:String”定义的不是动态数组吗?谢谢!-----------------------------------------------------------------------
代码:
procedure TForm1.RzBitBtn1Click(Sender: TObject);
var
temp:String;
begin
temp:=RzEdit1.Text;
ShowMessage(temp[1]);
end;
2.如果有汉字的话
procedure TForm1.RzBitBtn1Click(Sender: TObject);
var
temp:wideString;//比较好点
begin
temp:=RzEdit1.Text;
ShowMessage(temp[1]);
end;
这样显示中文不行,得WIDEString
但是毕竟两者还是两个类型,不能直接划=号的,所以开始下标不统一也正常