可以使用move和Copyprocedure Move(const Source; var Dest; Count: Integer);
例:
move(Buffer, pBuff^, 255);
function Copy(S; Index, Count: Integer): string;
例:
pBuff := Copy(Buffer, 255);
例:
move(Buffer, pBuff^, 255);
function Copy(S; Index, Count: Integer): string;
例:
pBuff := Copy(Buffer, 255);
解决方案 »
- 动态创建的控件的OnClick过程
- 一个奇怪的结构体函数调用的问题
- 看FastScript源码时遇到的问题,关于AddedBy := TObject(1);
- 国内有什么好的报表控件吗
- ShellTreeView中如何初始化选定的目录?
- 关于导出数据-》EXCEl
- 向大家找个画图的控件。多谢帮忙
- 如何在WIN98下设置共享和删除共享?(急急急!!!)
- 请问用 QRPreview 自定义预览时怎样实现“上一页”、“下一页”?
- 菜鸟求帮助cmd中一个folder里写不同directory的command
- 50!!50分!!请高手赐教:我的MDI Application,如何每次只显示一个ChildForm?
- 简单问题--怎样使combobox的下拉菜单展开?
pa:=copy(p,0,255);[Error] Unit1.pas(57): Incompatible types: 'String' and 'PChar'
p:array[0..255] of char