2,497
社区成员
发帖
与我相关
我的任务
分享
function CreateDataSet: TDataSet;
var cdsTemp: TClientDataSet;
begin
try
AppendLog('log.txt','TClientDataSet.Create(application)');
cdsTemp := TClientDataSet.Create(application);
AppendLog('log.txt','cdsTemp.FieldDefs.Add');
cdsTemp.FieldDefs.Add('MATERIALID',ftString,20);
cdsTemp.FieldDefs.Add('CLASS',ftString,60);
cdsTemp.FieldDefs.Add('MATERIALNAME',ftString,256);
cdsTemp.FieldDefs.Add('DESCRIBE',ftString,12);
cdsTemp.FieldDefs.Add('PUTNUM',ftInteger);
AppendLog('log.txt','cdsTemp.CreateDataSet');//这行日志成功输出
cdsTemp.CreateDataSet;
AppendLog('log.txt','cdsTemp as TDataSet');
result := (cdsTemp as TDataSet);
except
on E: Exception do
AppendLog('log.txt','CreateDataSet出错:'+ E.Message); //报错access violation at address... read of address 00000000
end;
end;
interface
uses
MidasLib { 加上这个即可;