Is this correct solution?
CODE
else Result.AsString := DataField.DisplayText;
QUOTE (Boki (Berg) @ May 22 2009, 06:37 PM) <{POST_SNAPBACK}>
Replace it completely into:
Please tell me if it works now. I am very sorry for this mistake.
Best regards
CODE
ctString:
if not IsNull then
if not Assigned(OnApplyCell) then
begin
if DataField.DataType = ftWideString then
{$IFDEF DELPHI2005}
Result.AsString := DataField.AsWideString
{$ELSE}
Result.AsString := TWideStringField(DataField).Value
{$ENDIF}
else Result.AsString := DataField.AsString;
end;
if not IsNull then
if not Assigned(OnApplyCell) then
begin
if DataField.DataType = ftWideString then
{$IFDEF DELPHI2005}
Result.AsString := DataField.AsWideString
{$ELSE}
Result.AsString := TWideStringField(DataField).Value
{$ENDIF}
else Result.AsString := DataField.AsString;
end;
Please tell me if it works now. I am very sorry for this mistake.
Best regards



Find content
Not Telling
