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

M

milan

Unregistered / Unconfirmed
GUEST, unregistred user!
有一字符串 'pppk'要截取末位'k',如用copy则'k'为string类型,我现在想将'k'转换成char
类型,请问用什么函数? 谢谢!!
 
StrUtils单元
var
s :string;
a:char;
begin
s := 'pppk';
s := (rightstr(s,1));
a := s[1];
edit1.text :=a
 
直接用a = s[1]
 
a:=s[length(s)];
 
我是一个初学者,请问有直接转换的函数吗?
能否将其转换成pchar在转换成char?谢谢!!
 
长度是1的string类型可以赋值给char类型。上面的例子可以这么写:
var
s:String;
c:Char;
begin
s:='pppk';
c:=s[4];

end;
s的具体索引值你可以用position之类的函数求出。
 
>>能否将其转换成pchar在转换成char?谢谢!!
var ch Char;
pch: PChar;
......
ch := pch[n];
n为第几个字符,从0开始,1为第二个字符
 
如何将String转换成Pchar呢?
 
pchar(string)
 
谢谢大家!
 
多人接受答案了。
 
milan,你的分数分配问题太大,最起码"惊弓之亮-2"的分数应该比"chocolate"多!
哪有StrUtils单元,rightstr函数!
milan,对于表示遗憾
 
谢谢你提的建议。
我给他多分的原因是我能读懂他的程序,知道他的思想。
 
啊?晕倒
 
顶部