paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 14:19:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Removed debug statements

Browse Source
This commit is contained in:
michael 2003-11-04 22:53:55 +00:00
parent 8b337fb5ef
commit 4512a8478f
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/objpas/cvarutil.inc
View File

@ -117,11 +117,7 @@ begin
VarDouble : Result:=Round(VDouble); VarDouble : Result:=Round(VDouble);
VarCurrency: Result:=Round(VCurrency); VarCurrency: Result:=Round(VCurrency);
VarDate : Result:=Round(VDate); VarDate : Result:=Round(VDate);
VarOleStr : begin VarOleStr : Result:=StrToInt(WideCharToString(vOleStr));
Writeln('In VariantToLongint : "',Pchar(Pointer(vOleStr)),'"');
Result:=StrToInt(WideCharToString(vOleStr));
Writeln('Uit VariantToLongint');
end;
VarBoolean : Result:=Longint(VBoolean); VarBoolean : Result:=Longint(VBoolean);
VarByte : Result:=VByte; VarByte : Result:=VByte;
VarWord : Result:=VWord; VarWord : Result:=VWord;
@ -551,7 +547,10 @@ end;
{ {
$Log$ $Log$
Revision 1.8 2003-11-04 22:27:43 michael Revision 1.9 2003-11-04 22:53:55 michael
+ Removed debug statements
Revision 1.8 2003/11/04 22:27:43 michael
+ Some fixes for string support + Some fixes for string support
Revision 1.7 2002/09/07 16:01:22 peter Revision 1.7 2002/09/07 16:01:22 peter