[fpc-devel] Contribution

[petr.kristan at epos.cz]

On Wed, Jun 01, 2005 at 04:11:37PM +0200, Florian Klaempfl wrote:
> petr.kristan at epos.cz wrote:
> 
> > On Wed, Jun 01, 2005 at 03:22:10PM +0200, Florian Klaempfl wrote:
> > 
> >>Michael Van Canneyt wrote:
> >>
> >>
> >>>
> >>>On Wed, 1 Jun 2005 petr.kristan at epos.cz 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