Re: Error "list index out of bounds (0)"

Return to index

Author

Message

C.C

Posted: 10/23/2002 11:15:44

When I import, it's success.

But when I reopen,just openning query, I get errors.

// Load a doc file into a field of database

//It's same as a demo

procedure TFrmCTSoanThao.acLoadExecute(Sender: TObject);

var CurTextStyleNo,CurParaStyleNo:integer;

    r:boolean;

begin

  rwTest.clear;

  OpenDialog1.Title := 'Loading';

  if OpenDialog1.Execute then

  begin

    if not (DmNhaDat.idsTemplate.State in [dsInsert,dsEdit]) then

      DmNhaDat.idsTemplate.edit;

    Screen.Cursor := crHourglass;

    CurTextStyleNo := rwTest.CurTextStyleNo;

    CurParaStyleNo := rwTest.CurParaStyleNo;

    rwTest.CurTextStyleNo := CurTextStyleNo;

    rwTest.CurParaStyleNo := CurParaStyleNo;

    r := rvc.ImportRV(OpenDialog1.FileName, rwTest,

OpenDialog1.FilterIndex-1); ;

    Screen.Cursor := crDefault;

    if not r then

      Application.MessageBox('Error', 'Error!', 0)

    else

    begin

        rwTest.Format;

        rwTest.Change;

        rwTest.Refresh;

    end;

  end;

end;

Is it enough? Or should I send my project?

Thanks.

C.C