怎么把一个string变量赋值给char数组？
怎么把一个string变量赋值给char数组？
var
a1: array[0,47] of char;
s1:string;
begin
s1:=edit1.text;
s1的内容如何给a1赋植？
问题点数：100、回复次数：19Top
1 楼anneyang（风往北吹）回复于 2001-06-11 16:32:00 得分 0
s1:=pchar(edit1.text);Top
2 楼Jera（天~~~~塌下来我也不怕...）回复于 2001-06-11 16:41:00 得分 0
procedure TForm1.Button1Click(Sender: TObject);
var
s1:string ;
a1: array[0..47] of char;
begin
s1:='asdfasdfasdfasdfasdf89457293452j4kd8979345kjf';
setlength(s1,48) ; //防止长处超出范围出错
StrPCopy(@a1,s1); //把 s1赋值给a1
showmessage(a1); //显示a1
end;Top
3 楼Jera（天~~~~塌下来我也不怕...）回复于 2001-06-11 16:42:00 得分 60
procedure TForm1.Button1Click(Sender: TObject);
var
s1:string ;
a1: array[0..47] of char;
begin
s1:='asdfasdfasdfasdfasdf89457293452j4kd8979345kjf';
setlength(s1,48) ; //防止长处超出范围出错
StrPCopy(@a1,s1); //把 s1赋值给a1
showmessage(a1); //显示a1
end;Top
4 楼Jera（天~~~~塌下来我也不怕...）回复于 2001-06-11 16:44:00 得分 0
给分Top
5 楼yjq（渤海海峡）回复于 2001-06-11 16:45:00 得分 0
我是问怎么把s1的值赋给a1,了了同志您到是先看清问题呀Top
6 楼yjq（渤海海峡）回复于 2001-06-11 16:46:00 得分 0
别急，我先事实Top
7 楼yjq（渤海海峡）回复于 2001-06-11 16:49:00 得分 0
8 楼chenshirong（抱琴）回复于 2001-06-11 16:51:00 得分 0
for i:=0 to 47 do a1[i]:=s1[i+1];Top
9 楼Jera（天~~~~塌下来我也不怕...）回复于 2001-06-11 16:52:00 得分 0
等着Top
10 楼anneyang（风往北吹）回复于 2001-06-11 16:55:00 得分 0
笔误:a1:=pchar(s1);Top
11 楼airhorse（编程至尊宝）回复于 2001-06-11 16:56:00 得分 30
strlcopy(a1,pchar(s1),sizeof(a1-1)) //用strlcopy，自动截断可以防止越界，速度也快，它是用汇编写的，Top
12 楼Apollo47（阿波罗）回复于 2001-06-11 16:56:00 得分 0
for i:=1 to Length(s1) do
a1[i-1]:=s1[i];
Top
13 楼dearmyfriend（Dearmyfriend）回复于 2001-06-11 17:24:00 得分 0
a1:=pchar(s1); Top
14 楼Musicwind（Musicwind）回复于 2001-06-11 17:57:00 得分 10
to yjq(渤海海峡):
这个问题我帮你回答过了呀，怎么不去看看你自己的贴子？
http://www.csdn.net/expert/topic/153/153168.shtmTop
15 楼XGZ（**成都双流**）回复于 2001-06-11 18:07:00 得分 0
for i := 0 to Length(s1) do
begin
if length(a1) > i then
a1[i] := s1[i]
else break;
end;Top
16 楼Crob（Take Everything Easy!）回复于 2001-06-11 18:59:00 得分 0
StrPCopy
!!!!!!!!!!!!!Top
17 楼airhorse（编程至尊宝）回复于 2001-06-11 21:21:00 得分 0
strlcopy(a1,pchar(s1),sizeof(a1)-1) //用strlcopy，自动截断可以防止越界，速度也快，它是用汇编写的，
strpcopy,就是用strlcopy写的！：－）Top
18 楼Jera（天~~~~塌下来我也不怕...）回复于 2001-06-12 08:40:00 得分 0
给分呀 ：）Top
19 楼redwoodnymph（new）回复于 2001-06-12 09:42:00 得分 0
给分Top
