如何把 pchar 赋值为 array[0..1024] of char
procedure TfrmDemoMain.Button4Click(Sender: TObject);
var
ret, len, i: integer;
bdatetime, edatetime, roomstr: array[0..1024] of char;
s,e,rm:string;
begin
len := 0;
s:=edit1.Text;


我用下面的代码
CopyMemory(bdatetime, PChar(S), Length(s));

通不过
请问要怎么才能把 edit1 里面的信息 赋值到 bdatetime 里面 ？
谢谢！

[解决办法]
CopyMemory(@bdatetime[0], PChar(S), Length(s));
[解决办法]
Move(s[1], bdatetime[0],Length(s))
[解决办法]
Edit1.GetTextBuf(bdatetime, SizeOf(bdatetime))
[解决办法]
各显神通了！
[解决办法]
StrCopy也可以
[解决办法]
学习学习,MOVE
[解决办法]
StrPCopy(@bdatetime[0],edit1.Text)