送分题（30分）//关于字符串的问题(30分)

milan · 2002-08-29

有一字符串 'pppk'要截取末位'k',如用copy则'k'为string类型，我现在想将'k'转换成char
类型，请问用什么函数？谢谢！！

chocolate · 2002-08-29

StrUtils单元
var
s :string;
a:char;
begin
s := 'pppk';
s := (rightstr(s,1));
a := s[1];
edit1.text :=a

cb422 · 2002-08-29

直接用a = s[1]

惊弓之亮 · 2002-08-29

a:=s[length(s)];

milan · 2002-08-29

我是一个初学者，请问有直接转换的函数吗？
能否将其转换成pchar在转换成char?谢谢！！

booboo · 2002-08-29

长度是1的string类型可以赋值给char类型。上面的例子可以这么写：
var
s:String;
c:Char;
begin
s:='pppk';
c:=s[4];

end;
s的具体索引值你可以用position之类的函数求出。

SS2000 · 2002-08-29

>>能否将其转换成pchar在转换成char?谢谢！！
var ch Char;
pch: PChar;
......
ch := pch[n];
n为第几个字符,从0开始,1为第二个字符

milan · 2002-08-29

如何将String转换成Pchar呢?

ugvanxk · 2002-08-29

pchar(string)

milan · 2002-08-29

谢谢大家！

milan · 2002-08-29

多人接受答案了。

SS2000 · 2002-08-29

milan,你的分数分配问题太大,最起码"惊弓之亮-2"的分数应该比"chocolate"多!
哪有StrUtils单元,rightstr函数!
milan,对于表示遗憾

milan · 2002-08-29

谢谢你提的建议。
我给他多分的原因是我能读懂他的程序，知道他的思想。

SS2000 · 2002-08-29

啊？晕倒