if pos(ExtractFileExt(s),'.rvf,.RVF')>0 then begin //Datei kann NICHT eingefügt/angehängt werden
RVSetLinearCaretPos(memo,memoPos); //memoPos is wanted position
if memo.LoadRVF(s)=false then
if MessageDlg(s+#10#10+'Fehler beim Laden der RVF-Datei !'+#10#10+
'Laden insgesamt abbrechen ? '+#10, mtConfirmation, [mbYes,mbNo],0) = mrYes then exit;
end;
memo.Change;
Memo.Format;
if table1.state in [dsEdit, dsInsert] then table1.post;
Well, nothing too bad happens if you leave Change and Format.
Calling Change after InsertRVFFromFileEd is harmless. Just not necessary.
Format moves the caret to the beginning of the document (and it may be slow for large documents).