修改FBLDataset.pas 的
function TFBLCustomDataset.GetFieldData(FieldNo: Integer; Buffer: Pointer): Boolean;
var
TempString:string;
ftype,
fscale: smallint;
begin
Dec(FieldNo);
Result := False;
if FisEmpty or FDsql.EOF then Exit;
if FDsql.FieldIsNull(FieldNo) then
Exit;
fscale := FDsql.FieldScale(FieldNo);
ftype := FDsql.FieldType(FieldNo);
case ftype of
SQL_VARYING,
SQL_TEXT:
begin
TempString := FDsql.FieldAsString(FieldNo);
//2009-10-5 by sxg 解决空字符串问题 ,否则会出现灾难性错误 TempString[1]无效访问
TempString := TempString + #0;//这一行添加
if length(TempString)>0 then //这一行添加
Move(TempString[1],Buffer^,FDsql.FieldSize(FieldNo)) |
