[Lazarus] Strange Behaviour of TBits

Gerard N/A gerardusmercator at gmail.com
Thu Oct 14 15:27:02 CEST 2010


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
>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus/attachments/20101014/39055f9f/attachment-0004.html>


More information about the Lazarus mailing list