How can I load a rvf-file to a wanted position
Posted: Sat Feb 11, 2012 8:59 am
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;
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;