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

* fixed bug in tvariantmanager declaration (string -> ansistring, this

Browse Source 
file is compiled in non-objpas mode!)
This commit is contained in:
Jonas Maebe 2002-06-12 15:45:42 +00:00
parent 7a66a12e63
commit 2c651f8661
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/inc/varianth.inc
View File

@ -147,7 +147,7 @@ type
varfromword64 : procedure(var dest : variant;const source : qword);
varfromreal : procedure(var dest : variant;const source : extended);
varfrompstr: procedure(var dest: variant; const source: ShortString);
varfromlstr: procedure(var dest: variant; const source: string);
varfromlstr: procedure(var dest: variant; const source: ansistring);
varfromwstr: procedure(var dest: variant; const source: WideString);
{!!!!!!!}
@ -256,7 +256,11 @@ operator :=(const source : variant) dest : tdatetime;
}
{
$Log$
Revision 1.4 2001-11-14 23:00:17 michael
Revision 1.5 2002-06-12 15:45:42 jonas
* fixed bug in tvariantmanager declaration (string -> ansistring, this
file is compiled in non-objpas mode!)
Revision 1.4 2001/11/14 23:00:17 michael
+ First working variant support
Revision 1.3 2001/11/08 20:59:10 michael