数据类型问题?(100分)

I

interface

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-16

• #1

我是这样定义的:
var
a:array[0..1000] of char;
begin
strpcopy(a,memo1.lines.text);
end;
请教如何返过来:即:
var
b:类型可以任意
现在如何把:a的值传给b;

 

W

windbell

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-16

• #2

var
a:array [0..1000] of char;
b:widestring;
begin
...
b:=a;
...
end;

 

三

三点

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-16

• #3

要不你先把b定义成string型，再根据需要转变成合适的类型！
要想实现给任意类型的变量都能赋值，这个过程或函数一定很复杂，还不如先把值取过来
后再根据需要转换！

 

P

pcc_mmz1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-16

• #4

to interface:
请问这样做的目的是什么呢？
a 是一个字符数组，与之相联系的变量必与字符有关，将a赋予一个
诸如整形的变量，可以吗？如果要将其转换为一个字符串，如像你说的长度，
定义一个widestring 就可以了，它可有表示约997个字符。
var
b :widestring;
b:=a;
end;

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-16

• #5

不太理解你的意思。
procedure TForm1.Button2Click(Sender: TObject);
var
a:array[0..100] of char;
begin
a:='aaaa'+#13+#10+'bbbbbb';
memo1.text:=a;
end;

 

P

pcc_mmz1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-16

• #6

to interface:
请问这样做的目的是什么呢？
a 是一个字符数组，与之相联系的变量必与字符有关，将a赋予一个
诸如整形的变量，可以吗？如果要将其转换为一个字符串，如像你说的长度，
定义一个widestring 就可以了，它可有表示约997个字符。
var
b :widestring;
b:=a;
end;

 

元

元无天

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-21

• #7

to interface:

什么时候才能发分呢？请发分吧。

 

I

interface

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-21

• #8

多人接受答案了。