16,748
社区成员
发帖
与我相关
我的任务
分享如何把 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 里面 ？
谢谢！
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 里面 ？
谢谢！
...全文
请发表友善的回复…
发表回复
zzutrain 2012-08-01
- 打赏
- 举报
StrPCopy(@bdatetime[0],edit1.Text)
taste品味 2012-08-01
- 打赏
- 举报
学习学习,MOVE
Frank.WU 2012-07-31
- 打赏
- 举报
CopyMemory(@bdatetime[0], PChar(S), Length(s));
onlyou13 2012-07-31
- 打赏
- 举报
StrCopy也可以
JPEXE 2012-07-31
- 打赏
- 举报
各显神通了！
s11ss 2012-07-31
- 打赏
- 举报
Edit1.GetTextBuf(bdatetime, SizeOf(bdatetime))
bdmh 2012-07-31
- 打赏
- 举报
Move(s[1], bdatetime[0],Length(s))
