[Lazarus] Strange Behaviour of TBits

[Julien Devillers]

ok thanks

 

Julien

 

De : Gerard N/A [mailto:gerardusmercator at gmail.com] 
Envoyé : jeudi 14 octobre 2010 15:27
À : Lazarus mailing list
Objet : Re: [Lazarus] Strange Behaviour of TBits

 

Hi,

FWIW, I get 1,2,3,4,5 with FPC 2.4.0 under Win XP 32 bits (Latest SVN Lazarus, but I think that not relevant).
TBits is from the FPC RTL. Maybe you should ask in the FPC list (fpc-pascal at lists.freepascal.org).

Regards,

Gerard. 

2010/10/14 Julien Devillers <jdevillers at opti-time.com>

 

 

De : Julien Devillers [mailto:jdevillers at opti-time.com] 
Envoyé : jeudi 14 octobre 2010 11:24
À : Lazarus mailing list
Objet : [Lazarus] Strange Behaviour of TBits

 

Hello

 

I found a strange behaviour of TBits. Example : 

 

procedure TForm1.Button1Click(Sender: TObject);

var

  x:TBits;

begin

  x:=TBits.Create();

  x[0] := true;

  showmessage(inttostr( x.size));

  x[1] := false;

  showmessage(inttostr( x.size));

  x[2] := false;

  showmessage(inttostr( x.size));

  x[3] := true;

  showmessage(inttostr( x.size));

  x[4] := true;

  showmessage(inttostr( x.size));

end;                  

 

The above code returns 1, 2, 3, 3, 4 while it should return 1, 2, 3, 4, 5.

I Built a TMyBits class using strictly the TBits.inc file from fpc and... the bug does

not appear... !

 

I'm using lazarus 0.9.28.2 beta and fpc 2.4.0 with linux 64.

 

Did I miss something ?

 

regards

Julien



-----------------------

 

Correction : I'm using FPC 2.2.4.

 



__________ Information provenant d'ESET NOD32 Antivirus, version de la base des signatures de virus 5530 (20101014) __________



Le message a été vérifié par ESET NOD32 Antivirus.

http://www.eset.com


--
_______________________________________________
Lazarus mailing list
Lazarus at lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus

 

 

__________ Information provenant d'ESET NOD32 Antivirus, version de la base des signatures de virus 5530 (20101014) __________

 

Le message a été vérifié par ESET NOD32 Antivirus.

 

http://www.eset.com

 

__________ Information provenant d'ESET NOD32 Antivirus, version de la base des signatures de virus 5531 (20101014) __________

 

Le message a été vérifié par ESET NOD32 Antivirus.

 

http://www.eset.com

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus/attachments/20101014/5ebcb60c/attachment-0004.html>