不会的!一定是你的程序有问题!我又一个类似的程序运行的很正常,代替结构如下:For i:= 0 To 10 Do
Begin
SL := TStringList.Create;
For J := 1 To 10 Do
Begin
S := GetMem( 100 );
.....
FreeMem( S );
End;
SL.Free;
End;
Begin
SL := TStringList.Create;
For J := 1 To 10 Do
Begin
S := GetMem( 100 );
.....
FreeMem( S );
End;
SL.Free;
End;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货