On Wed, Jun 01, 2005 at 04:11:37PM +0200, Florian Klaempfl wrote: > [EMAIL PROTECTED] wrote: > > > On Wed, Jun 01, 2005 at 03:22:10PM +0200, Florian Klaempfl wrote: > > > >>Michael Van Canneyt wrote: > >> > >> > >>> > >>>On Wed, 1 Jun 2005 [EMAIL PROTECTED] wrote: > >>> > >>> > >>>>Hi. > >>>> > >>>>Now I'm working on porting our Delphi database application (cca 100 > >>>>000 lines) to FreePascal. I > >>>>have some little patches principally around TDataset. Where can I send > >>>>this patches? > >>> > >>> > >>>Send them to me. > >>> > >>> > >>>>Our application is now possible to translate in fpc, but first problem > >>>>was > >>>>unfunctional VarArrayCreate([0, 1], varVariant). Is here somebody who is > >>>>working on Variants or may I try to penetrate into source and try to > >>>>track down this bug? > >>> > >>> > >>>Maybe Jason Southwell is working on it, but go ahead and change whatever > >>>you think needs changing. Patches can be sent to me. > >> > >>VarArrayCreate should basically work with 2.0.0. > > > > Yes VarArrayCreate(..., varInteger) works, but VarArrayCreate(..., > > varVariant) emits "VarArray is locked". > > Unfortunately my knowledge about variants internals is zero. > > Can you create a small example which shows the problem? BTW: Which OS do you > use? Win or other? OS: Linux fpc 2.1.1 from svn.
---------------------------------------------------------------- program pokus; uses Variants; var v: Variant; begin v := VarArrayCreate([0, 1], varVariant); end. ---------------------------------------------------------------- emits EVariantBadVarTypeError : Invalid variant type Sorry for "VarArray is locked" mistake. It was another problem. Petr -- Ing. Petr Kristan . EPOS PRO s.r.o., Bozeny Nemcove 2625, 530 02 Pardubice tel: +420 466335223 Czech Republic (Eastern Europe) fax: +420 466510709 _______________________________________________ fpc-devel maillist - fpc-devel@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-devel
