【结贴】工作记录内容限制40报错**

qiezi

我的代码在工作记录的业务信息中代码如下：
procedure TWORKRECORDINFO.DataSetBizTaskDataBeforePost(DataSet: TDataSet);
var
s:string;
begin
s:=DataSetBizTaskData.FieldByName('fpostdetail').ToString;
s:=Business.System.SysUtils.Trim(s);
if (Business.System.SysUtils.StrLen(s)<=80) then
begin
Business.Forms.Dialogs.ShowMessage('内容字数少于40，请详细填写！');
Business.System.SysUtils.Abort;
end;
  Inherited;

end;
报错为：
Access violation at address 00000000. Read of address 00000000

zfang

s:=DataSetBizTaskData.FieldByName('fpostdetail').ToString;
请修改为
s:=DataSetBizTaskData.FieldByName('fpostdetail').AsString;

qiezi

内容是二进制流类型，怎么取得字符串？

qiezi

我取表格文档中的单元格内容，报错代码Business.Model.TSheetDoc(DocView.Doc).Cells[3,6].Text，
Business.Model.TSheetDoc(DocView.Doc).Cells[3,6].value都不行，应该怎么写？

zfang

二进制流就要类似于这样子来访问了。
TBlobField(DataSetBizTaskData.FieldByName('fpostdetail')).SaveToStream(lStream);

qiezi

不能通过读取单元格的方式读工作内容吗？

qiezi

按你说的可以详细一点吗？

zfang

lstream : TStream;
  i : Integer;
begin
  lstream := TMemoryStream.Create;
  TBlobField(DataSetBizTaskData.FieldByName('fpostdetail')).SaveToStream(lStream);
  i := lStream.Size;
  lstream.Free;

类似于这样子吧。

qiezi

这样读出来的是二进制流的大小，而不是内容的字符串长度

zfang

是这样的，你可以自己填写40个字符进去，然后看size（也可以按1楼的做法）来判断。但是这样子判断出来的结果不一定很准备，因为表现为rtf格式后它会增加一些自己的格式进去。