buffer定义为缓冲区,
Buffer: PChar;在刚读入文件时,如下,buffer有文件内容,
Buffer := PChar(AllocMem(iFileLength + 1));
Memo2.Lines.Add(Buffer);
但在其它地方调用时,如下,buffer里就没内容了,怎么回事?
procedure Tmain_form.Button2Click(Sender: TObject);
var
j,i:integer;
begin
t:=1;
j:=0;
Memo2.Lines.Add(buffer);
Buffer: PChar;在刚读入文件时,如下,buffer有文件内容,
Buffer := PChar(AllocMem(iFileLength + 1));
Memo2.Lines.Add(Buffer);
但在其它地方调用时,如下,buffer里就没内容了,怎么回事?
procedure Tmain_form.Button2Click(Sender: TObject);
var
j,i:integer;
begin
t:=1;
j:=0;
Memo2.Lines.Add(buffer);
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货