请问有没有char和string互相转换的例子？(100分)

咪

咪咪猫

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-01

• #1

请问各位大侠有没有char和string互相转换的例子？高分重酬！

 

少

少爷的拐杖

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-01

• #2

var
c: Char;
str: String;
begin
c := str[1];//注意string下标是从1开始的
end;

 

B

Block_K_E

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-01

• #3

str[0];//代表着字符串的长度。[]

 

S

SupermanTm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-01

• #4

楼上的不完全对的，应该是这样的，简单的处理
var
S: String;
P: PChar;
begin
S:= 'MyString';
S:= S + #0;
// 这很重要，否则 PChar 就没有结尾了！
P:= @S[1];
end;

 

U

ugvanxk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-01

• #5

//str[0];//代表着字符串的长度。[]
那是str[225] 这样的格式
sting(pchar)
pchar(string)
我觉得少爷的拐杖说的就可以了

 

M

mdc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-01

• #6

关注

 

H

HunterTeam

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-01

• #7

var
S: String;
P: Char;
begin
S:= 'MyString';
P:= S[2];
//P='y'
S:=P;
//S='y';
end;

 

W

wangfu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-01

• #8

string、TStrings、pchar的相互转换
假设有如下定义：
var
pchar;
s:string;
ss:tstrings;
begin
ss:=tstringlist.create;
// 开始时一定不要忘记创建ss
ss.text:=s;
// string --> tstrings
s:=ss.text;
// tstrings --> string
p:=pchar(s);
// string --> pchar
s:=p;
// pchar --> string
showmessage(s);
// 合法语句
showmessage(p);
// 合法语句
... ...
ss.free;
// 最后还要记着释放ss占用的资源
end;

 

C

chll

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-01

• #9

var
s;string;
pchar;
begin
p;=pchar(s);//string --> pchar
s:=strpas(p);//pchar --> string
end;

 

C

ChenJack

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-01

• #10

var
s;string;
pchar;
yy:Array[1..10] of Char;
begin
p:=@yy;
s:=StrPas(p);
end;