Re: [DUG]: incredible and horrible. (the Code)

[Neven MacEwan]

Juan

This should be

constructor TSpIterator.Create(InitCount: Integer);
begin
    inherited Create;
    if ( InitCount > 0 ) then
    try
       Reset(InitCount);
    except
       on E: EOutOfMemory do
       MessageDlg(E.Message, mtError, [mbOk], 0);
   end
end;

(not sure of the effect of calling free inside a constructor - but i
wouldn't recommend it)

and

    RowsLeft := TSpIterator.Create(Rows); // problem starts here
    ColsLeft := TSpIterator.Create(Cols);

inside a try except

HTH
Neven

---------------------------------------------------------------------------
    New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
                  Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED] 
with body of "unsubscribe delphi"