[Lazarus] Large Integer errors

[Dave Coventry]

Yes, great, thanks.

Would there be any error or would Lazarus just continue as if nothing
had happened?


2009/2/14 Howard Page-Clark <hdpc at talktalk.net>:
> On Sat, 14 Feb 2009 12:30:55 +0200
> Dave Coventry <dgcoventry at gmail.com> wrote:
>
>> function mycalc( num1,num2: real):integer;
>> begin
>>   Result:=trunc(num1*num2);
>> end;
>>
>> How can I protect from the product of the two numbers being too big?
>>
>> If it's too big I want to discard it anyway.
>
> function mycalc( num1,num2: real):integer;
>  begin
>   Result:=trunc(num1*num2);
>  if result > maxint then result := 0;
>  end;
>
> Would this do what you want?
>
>
> Howard Page-Clark <hdpc at talktalk.net>
> _______________________________________________
> Lazarus mailing list
> Lazarus at lazarus.freepascal.org
> http://www.lazarus.freepascal.org/mailman/listinfo/lazarus
>