var
data:string;
p:^TPacket;
begin
p:=@data;//data中还没有数据吧
end;
data:string;
p:^TPacket;
begin
p:=@data;//data中还没有数据吧
end;
解决方案 »
- 请人优化一段代码,[截图 图片压缩]
- 有没有完整的宾馆管理系统设计方案?
- delphi + oracle 8.1.6 + 照片存取问题,解决马上给分(100)
- udl如何连接局域网里的实例数据库
- 为什么找不到*.dcu文件
- 关于硬件接口编程问题
- 高分求教BDE问题!
- 请问如何获得dos下的消息,我执行一个dos计算程序后,如何获得它的输出结果了?
- 哪儿有fastreport中文操作说明的资料可供下载阅读,满意马上给分(在线等候...<等待中>)
- QRDBRichText怎么用,连上数据库的字段为什么显示不出来?
- 如何去掉这个Warnning?谢谢!
- qreport問題,:請問在做一個分組的打印報表后,怎樣計算某一字段的所有值的總和?
procedure TForm1.Button1Click(Sender: TObject);
type
TPacket = packed record
a: array[0..2] of Char;
b: array[0..3] of Char;
end;
var
data: string;
P: ^TPacket;
begin
data := '1234567';
P := Pointer(data);
ShowMessage(P.a);
ShowMessage(P.b);
end;