怎样方便的为字符数组赋值(100分)

Y

yoking

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-25

• #1

有数组char1: array[0..3] of char ,char2: array[0..10] of Char,..,..,...
有多个数组，有没有一个函数实现 ,char1:=str1,char2:=str2
即用字符串为它们赋值

 

N

Nstar

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-25

• #2

自己写一个不可以吗？
应该不难的

 

Y

yoking

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-25

• #3

有分都送不出去
我已知道答案了
procedure FillArray(CharArray: Array of Char
Str: string);
var
CharCount,i: Integer;
begin
CharCount:=High(CharArray);
if Length(Str)-1<CharCount then
CharCount:=Length(Str)-1;
for i:=0 to CharCount do
CharArray:=Str[i+1];
end;

 

L

LittleIsland

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-25

• #4

你可以用下面的方法:
var
char1:array[0..6] of char;// 定义足够长
str1:string;

str1:='abcdef';
FillChar(char1,7,0);// 初始化数组为0
Move(str1[1],char1,length(str1));// !!!注意在拷贝过程中数组不能使用越界

 

Y

yoking

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-30

• #5

接受答案了.