EReadError - Error reading TRVListInfo.LstID

Return to index

Author

Message

Rune Rosenvinge

Posted: 01/03/2004 13:15:45

Hi Sergey,

I am getting an error during load

of a "normal" rvf-file.

EReadError - Error reading TRVListInfo.LstID

Property does not exist.

Is it incompatible RVStyles during save/load?

Anyway rather annoying.

(Delphi5/TRichView 1.7/TRichViewEdit)

Actual code:

// Import default model of this kind

gAppGlobals.GetGlobalSettings;

Dir := gAppGlobals.Path1;

case aModel.ToolID of

1: Fil := Dir + 'SWOT.rvf';

2: Fil := Dir + 'YModell.rvf';

3: Fil := Dir + 'XModell.rvf';

end;

if not FileExists(Fil) then

    begin

    MessageDlg('Finner ikke n�dvendig rvf-fil = '+Fil, mtError, [mbOk], 0);

    MessageDlg('Kan-Administrator m� huske � legge denne inn i globale applikasjonsparametre!

',

                mtInformation, [mbOk], 0);

    flwNewModel.Visible := False;

    exit;

    end;

Screen.Cursor := crHourglass;

CurTextStyleNo := rv1.CurTextStyleNo;

CurParaStyleNo := rv1.CurParaStyleNo;

CloseOleContainer;

rv1.Clear;

rv1.CurTextStyleNo := CurTextStyleNo;

rv1.CurParaStyleNo := CurParaStyleNo;

r := rv1.LoadRVF(Fil); //<--this one produces the error

Screen.Cursor := crDefault;

if not r then

    begin

    ErrorMessage := 'Error during loading';

    ErrorMessage := ErrorMessage + GetRVFErrors;

    Application.MessageBox(PChar(ErrorMessage), 'Error', 0);

    exit;

    end;

FillStyleCombo(RVStyle1.ParaStyles, cmbPara);

FillStyleCombo(RVStyle1.TextStyles, cmbText);

rv1.Format;

cmbPara.ItemIndex := rv1.CurParaStyleNo;

cmbText.ItemIndex := rv1.CurTextStyleNo;

UpdateUndoMenu;