C
crazycock
Unregistered / Unconfirmed
GUEST, unregistred user!
而且这一句:buf := edit1.Text; 会出错!
晕。你变通一下呀。
var
str :String;
buf:array[1..512] of byte;//这里不是0开始,为了后面方便
begin
str := edit1.text;
buf := str;
或者用另外一个方法
strpcopy(@buf,edit1.text);即可完成赋值。
晕。你变通一下呀。
var
str :String;
buf:array[1..512] of byte;//这里不是0开始,为了后面方便
begin
str := edit1.text;
buf := str;
或者用另外一个方法
strpcopy(@buf,edit1.text);即可完成赋值。