数组赋值问题，请进？？？？？？？

[aiq]

例如
buffer: array[0..9] of char

怎样一次性赋值？
buffer:='FFFFFFFFFF';//这样可以
但我通过一个edit控件就不知道怎么做了，我想
buffer:=pchar(edit1.text);//edit1.text就是'FFFFFFFFFF'

不要告诉我用循环赋值for i:=low.....

[shun3]

FillChar(buffer, SizeOf(buffer), 'F');

[fyje]

buffer=['a','b','c']

[aiq]

这样不行，我每次edit1中的值都不一样

[fyje]

是啊，你首先做一个函数stringToArray来实现字符串向数组的转换

[fyje]

这是用C作的转换的程序，你可以参考以下
public static ArrayList StringToArray(String s, char c){
ArrayList list=new ArrayList();
int b=0;
int e=0;
while((e=s.indexOf(c,e))!=-1){
list.add(s.substring(b,e));
b=e+1;
e++;
}
list.add(s.substring(b,s.length()));
return list;

[xdf221]

up

[10975037]

var
buffer: array[0..9] of char;
StrA:String;
begin
StrA:=Edit1.Text;
copymemory(@buffer[0],@StrA[1],9);
end;

[10975037]

var
buffer: array[0..9] of char;
StrA:String;
begin
StrA:=Edit1.Text;
copymemory(@buffer[0],@StrA[1],9);
end;

用CopyMemory内存Copy一下就可以了.不过在CopyMemory之前,要注意检查一下StrA的长度和Buffer数组的长度..参数要是写错了..结果可能不正常

[10975037]

To 1楼的..
buffer=['a','b','c']<--这种语法可以吗..我这里不好用哈..
借楼主的地问下..怎么才能让数组的赋值象函数的开放数组参数那样?

[YOHOYOHO]

学习 猩猩

[jinjazz]

procedure TForm1.Button1Click(Sender: TObject);
var buffer: array[0..10] of char;
begin
strpcopy(buffer,edit1.Text);//--------------------------〉转换
showmessage(buffer[1]); //---------------------------〉测试
end;

[jinjazz]

procedure TForm1.Button1Click(Sender: TObject);
var buffer: array[0..10] of char;
begin
strpcopy(buffer,edit1.Text); //------〉转化
showmessage(buffer[1]);
end;