|
@@ -18,11 +18,7 @@
|
|
|
procedure TBits.Error;
|
|
procedure TBits.Error;
|
|
|
|
|
|
|
|
begin
|
|
begin
|
|
|
-{$ifdef NoExceptions}
|
|
|
|
|
- ;
|
|
|
|
|
-{$else}
|
|
|
|
|
Raise EBitsError.Create('');
|
|
Raise EBitsError.Create('');
|
|
|
-{$endif}
|
|
|
|
|
end;
|
|
end;
|
|
|
|
|
|
|
|
procedure TBits.SetSize(Value: Integer);
|
|
procedure TBits.SetSize(Value: Integer);
|
|
@@ -131,7 +127,10 @@
|
|
|
|
|
|
|
|
{
|
|
{
|
|
|
$Log$
|
|
$Log$
|
|
|
- Revision 1.2 1998-11-04 10:46:42 peter
|
|
|
|
|
|
|
+ Revision 1.3 1998-11-04 14:36:29 michael
|
|
|
|
|
+ Error handling always with exceptions
|
|
|
|
|
+
|
|
|
|
|
+ Revision 1.2 1998/11/04 10:46:42 peter
|
|
|
* exceptions work
|
|
* exceptions work
|
|
|
|
|
|
|
|
Revision 1.1 1998/05/04 14:30:11 michael
|
|
Revision 1.1 1998/05/04 14:30:11 michael
|
michael