DELPHI 指针初始化错误.might not have been initialized(0)

编译没有错.执行的时候就报错了:这里贴出源码:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton
procedure FormCreate(Sender: TObject)
private { Private declarations } public { Public declarations } end
TSMGPPacketHeader = packed Record PacketLength: Longword
RequestID: Longword
SequenceID: Longword
end
PSMGPPacketHeader = ^TSMGPPacketHeader;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);var PacketHeader: PSMGPPacketHeader;begin PacketHeader^.PacketLength := 1
PacketHeader^.RequestID := 2
PacketHeader^.SequenceID := 34;end;end.

指针只是个一个地址 函数体内的变量是从栈分配的 在赋值前 其值是随机的所以你声明的PacketHeader: PSMGPPacketHeader;是个随机地址。你向一个随机地址写入数据 如果还能经常有效的话 建议你去澳门敛财

new