paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-29 12:19:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Some fixes for string support

Browse Source
This commit is contained in:
michael 2003-11-04 22:27:43 +00:00
parent 6fd22f9b20
commit 573315745d
1 changed files with 13 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
rtl/objpas/cvarutil.inc
View File

@ -69,7 +69,7 @@ begin
VarDouble : Result:=Round(VDouble);
VarCurrency: Result:=Round(VCurrency);
VarDate : Result:=Round(VDate);
VarOleStr : NoWideStrings;
VarOleStr : Result:=StrToInt(WideCharToString(vOleStr));
VarBoolean : Result:=SmallInt(VBoolean);
VarByte : Result:=VByte;
VarWord : Result:=VWord;
@ -93,7 +93,7 @@ begin
VarDouble : Result:=Round(VDouble);
VarCurrency: Result:=Round(VCurrency);
VarDate : Result:=Round(VDate);
VarOleStr : NoWideStrings;
VarOleStr : Result:=StrToInt(WideCharToString(vOleStr));
VarBoolean : Result:=SmallInt(VBoolean);
VarByte : Result:=VByte;
VarWord : Result:=VWord;
@ -117,7 +117,11 @@ begin
VarDouble : Result:=Round(VDouble);
VarCurrency: Result:=Round(VCurrency);
VarDate : Result:=Round(VDate);
VarOleStr : NoWideStrings;
VarOleStr : begin
Writeln('In VariantToLongint : "',Pchar(Pointer(vOleStr)),'"');
Result:=StrToInt(WideCharToString(vOleStr));
Writeln('Uit VariantToLongint');
end;
VarBoolean : Result:=Longint(VBoolean);
VarByte : Result:=VByte;
VarWord : Result:=VWord;
@ -141,7 +145,7 @@ begin
VarDouble : Result:=Round(VDouble);
VarCurrency: Result:=Round(VCurrency);
VarDate : Result:=Round(VDate);
VarOleStr : NoWideStrings;
VarOleStr : Result:=StrToInt(WideCharToString(vOleStr));
VarBoolean : Result:=Longint(VBoolean);
VarByte : Result:=VByte;
VarWord : Result:=VWord;
@ -525,7 +529,7 @@ begin
vardouble : Write(F,vdouble);
varcurrency : Write(F,vcurrency) ;
vardate : Write(F,vdate) ;
varolestr : Write(F,'Not supported') ;
varolestr : Write(F,Pchar(vOleStr)) ;
vardispatch : Write(F,'Not suppordted') ;
varerror : Write(F,'Error') ;
varboolean : Write(F,vboolean) ;
@ -547,7 +551,10 @@ end;
{
$Log$
Revision 1.7 2002-09-07 16:01:22 peter
Revision 1.8 2003-11-04 22:27:43 michael
+ Some fixes for string support
Revision 1.7 2002/09/07 16:01:22 peter
* old logs removed and tabs fixed
Revision 1.6 2002/07/01 16:25:10 peter