var data2:Array[0..256]of char; begin StrPCopy(@data2[0],Edit1.Text); ShowMessage(data2); end;
move, Strpcopy 都可以。
//多种函数选择 var data2:array[0..256]of char; begin //StrPCopy(@data2[0],Edit1.Text); StrLCopy(@data2[0],PChar(Edit1.Text),257);//最大长度控制,免得超过数组范围 ShowMessage(data2); end;
var data2:Array[0..256]of char data2:=Trim(edit1.text)出错了, 怎么将edit1.text(A001)值赋给data2
var
data2:Array[0..256]of char;
begin
StrPCopy(@data2[0],Edit1.Text);
ShowMessage(data2);
end;
move, Strpcopy 都可以。
//多种函数选择
var
data2:array[0..256]of char;
begin
//StrPCopy(@data2[0],Edit1.Text);
StrLCopy(@data2[0],PChar(Edit1.Text),257);//最大长度控制,免得超过数组范围
ShowMessage(data2);
end;
data2:=Trim(edit1.text)出错了,
怎么将edit1.text(A001)值赋给data2