[yunqa.de] Re: Problem to compile DISQLite3_D2010.dpk on D2010
- From: Delphi Inspiration <delphi@xxxxxxxx>
- To: yunqa@xxxxxxxxxxxxx
- Date: Mon, 16 Dec 2013 15:02:06 +0100
Please replace the unit with the file in the attachment to this message:
//www.freelists.org/post/yunqa/Compiler-error-in-DISQLite3DataSetpas-at-line-1931,1
The problem will be fixed in the forthcoming release, expected this week.
Ralf
On 16.12.2013 14:23, Goran Bozjakovic wrote:
Checking project dependencies...
Compiling DISQLite3_D2010.dproj (Debug configuration)
[DCC Error] DISQLite3DataSet.pas(1931): E2008 Incompatible types
[DCC Fatal Error] DISQLite3Reg.pas(28): F2063 Could not compile used
unit 'DISQLite3DataSet.pas'
Failed
Elapsed time: 00:00:00.1
------------------------------------------------------------------------------------------------------------------------------------
DISQLite3DataSet.pas
-------------------------------------------
{$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
SetLength(vb, SizeOf(s));
<-----------------------------------------------------------------------------
Error!!!
if GetData(vb{$IFNDEF COMPILER_14_UP}, False{$ENDIF}) then
begin
Pointer(s) := PPointer(vb)^;
Result := s;
end
else
Result := Null;
{$ENDIF COMPILER_10_UP}
{$ENDIF COMPILER_5_UP}
end;
{$ENDIF TDISQLite3WideStringField_GetAsVariant}
_______________________________________________
Delphi Inspiration mailing list
yunqa@xxxxxxxxxxxxx
//www.freelists.org/list/yunqa
Other related posts:
