怎么把只有一个字母的string型转成char型(100分)

A

ali_yan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-04

• #1

我现在要把一个字符串进行异或运算？？
我是这样做的
一个一个的异或
比如
j:string;
m:integer;
j:='abcd';
我要得到j的异或值。。
我只能是
'a' xor 'b'
然后把结果再xor'c'，再把 然后把结果再xor'd'
可是我这样写不对呀

m:=ord(copy(j,1,1)) xor ord(copy(j,2,1))
m:=m xor ord(copy(j,3,1))
m:=m xor ord(copy(j,4,1))
我在程序中是用循环来做的。。

可是问题是copy(j,1,1)所得的为string型，而ord要求为char型。。
我怎么把这个string转成char的？？

也就是怎么把
string s='a'
转成
char s='a'

 

C

cgzhang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-04

• #2

j[1]?

 

远

远帆

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-04

• #3

要进行这样的操作的话，用^byte或pchar不是好得多吗？

 

T

tseug

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-04

• #4

m := 0;
for i := 1 to Length(s) do
begin
m := m xor ord(s);
end;
m := m xor 0;

 

T

txyx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-04

• #5

string 和char不能赋值兼容
建议定义一个字符数组来处理

 

D

delphifaq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-04

• #6

Char:=j

 

叶

叶不归

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-04

• #7

Char(Byte(J) xor 123

finish, ok ?

 

风

风中流云

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-04

• #8

var
a:array of char;
s:string;
i:integer;
begin
s:=edit1.text;
setlength(a,length(edit1.text));
for i:=0 to length(edit1.text) do
a:= s;

 

V

VBKILL

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-04

• #9

var
l:integer;
t:char;
s:string;
begin
s:='a';
l:=length(s);
t:=s[l];
end;

 

L

lujr

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-04

• #10

procedure TForm1.Button1Click(Sender: TObject);
var
stra:string;
chrA:char;
begin
stra:='a';
chra:=stra[1];
end;

 

A

ali_yan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-04

• #11

谢谢