如何实现下面的操作？（简单的问题）(100分)

M

minikiller

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-23

• #1

我有一组字符 A :array of [0..8] of char;
A:='#32#21#23#12';
如果我想从第2个位置开始，读出4个长度到另一个字符数组，有相应的函数吗？
我用copy，报错，不让编译通过！我知道可以互相付值，但这么做太麻烦了，谁有好办法！

 

C

chenliang_fly

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-23

• #2

procedure TForm1.Button1Click(Sender: TObject);
var
a:array [0..8] of char;
s:string;
begin
A:=#65#65#66#67#68#69;
s:=copy(string(A),2,4);

ShowMessage(s);

end;

 

L

lujr

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-23

• #3

VAR
A:array of string;
B:ARRAY OF string;
begin
//分配空间
SETLENGTH(A,1);
SETLENGTH(B,1);

//符值
A[0]:='123456789';

//拷贝
B[0]:=COPY(A[0],2,4);

 

没

没理头号

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-23

• #4

同意二楼的

 

M

minikiller

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-23

• #5

我的另外字符数组也是 B:array [0..1] of char
也可以这么做吗？

 

T

taozhiyu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-23

• #6

y

 

M

minikiller

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-23

• #7

我要做的不是字符，而是类似于#11#12的不可以显示的Hex,这样做不可以的

 

C

chenliang_fly

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-23

• #8

'#32#21#23#12'是一个长度为12的字符串，
A :array [0..11] of char
不知你的目的是什么

procedure TForm1.Button1Click(Sender: TObject);
var
a:array [0..11] of char;
s:string;
begin
A:=#65#65#66#67#68#69;
s:=copy(string(A),4,12);

ShowMessage(s);

end;



不知道你的目的是什么？

 

D

danliyou

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-14

• #9

To minikiller:
你的提问好象有点问题哟。
我和chenliang_fly一样的迷惑。

 

K

kingdeezj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-14

• #10

如果你是想显示十六进制的话，可以看一下FORMAT（）帮助。