這10個位元組難道就只能丟掉?
public
list: tlist;
{ Public declarations }
procedure p(a: tlist);
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.p(a: tlist);
var p1: PAnsiChar;
begin
getmem(p1, 10);
FillChar(p1^, 9 + 1, 0);
p1 := PAnsiChar('1234567890');
a.Add(p1);
end;
procedure TForm1.Button1Click(Sender: TObject);
var p1: string;
p2: PAnsiChar;
asd: Real;
begin
p(list);
p2 := list.Items[0];
showmessage(p2);
//list.Delete(0);
// list.Remove(0);
// freemem(p2);
list.Clear;
list.Free;
end;
uj5u.com熱心網友回復：
Getmem fillchar 不要，'1234567890'這就是pcharuj5u.com熱心網友回復：
事實上這個不是問題,這代表了隨便搞點資料進去,關鍵是
怎么避免add給Tlist freemem會釋放掉資料
或者說是想個辦法讓我能freemem
uj5u.com熱心網友回復：
現在的問題是會記憶體溢位轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/78852.html
標籤：語言基礎/算法/系統設計
上一篇：delphi Image視頻錄像