Can you replace the following function in DISQLite3DataSet.pas and test if it works for you:
{$IFDEF TDISQLite3WideStringField_GetAsVariant}
function TDISQLite3WideStringField.GetAsVariant: Variant;
{$IFNDEF COMPILER_5_UP}
var
s: PWideChar;
begin
s := nil;
if GetData(@s) then
begin
TVarData(Result).VOleStr := PWideChar(s);
TVarData(Result).vType := varOleStr;
end
else
Result := Null;
{$ELSE !COMPILER_5_UP}
{$IFDEF COMPILER_10_UP}
var
s: UnicodeString;
vb: TValueBuffer;
begin
Pointer(vb) := @s;
if GetData(vb{$IFNDEF COMPILER_14_UP}, False{$ENDIF}) then
Result := s
else
Result := Null;
Pointer(vb) := nil;
{$ENDIF COMPILER_10_UP}
{$ENDIF COMPILER_5_UP}
end;
{$ENDIF TDISQLite3WideStringField_GetAsVariant}
Ralf
On 19.09.2013 12:24, Stephen Lock wrote:
Sorry, try these (see attached)
_______________________________________________ Delphi Inspiration mailing list yunqa@xxxxxxxxxxxxx //www.freelists.org/list/yunqa
