新手求教。谢谢大家。
本帖最后由 abs1012 于 2013-05-27 00:28:01 编辑 procedure TForm1.Button1Click(Sender: TObject);
var
sData :String;
Buffer :PWideChar;
begin
sData := '0123456789';
GetMem(Buffer, Length(sData));
Inc(Buffer, 1); //使用了这里后，下面释放就报错了。应该怎么释放呢？？？
FreeMem(Buffer);
end;
[解决办法]
指针加一，指向了非法地址，自然要报错。
[解决办法]
要释放的话还得再Dec一下：

procedure TForm1.Button1Click(Sender: TObject);
var
//A: INTEGER;
sData :String;
Buffer :PWideChar;
begin
sData := '0123456789';
//a := weekof(Today);
GetMem(Buffer, Length(sData));
Inc(Buffer, 1); //使用了?里后，下面?放就??了。??怎么?放呢？？？
Dec(Buffer);
FreeMem(Buffer);
end;