forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

hide range error in debug mode

This commit is contained in:
Basile Burg 2014-12-14 14:16:54 +01:00
parent b93810099f
commit d70200244b
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/ce_synmemo.pas
View File

@ -187,17 +187,21 @@ begin
fMemo.SelEnd := fSelectionEnd; fMemo.SelEnd := fSelectionEnd;
end; end;
{$IFDEF DEBUG}{$R-}{$ENDIF}
procedure TCESynMemoCache.save; procedure TCESynMemoCache.save;
var var
fname: string; fname: string;
tempn: string; tempn: string;
chksm: Cardinal;
begin begin
tempn := fMemo.fileName; tempn := fMemo.fileName;
if not fileExists(tempn) then exit; if not fileExists(tempn) then exit;
// //
fname := getDocPath + 'editorcache' + DirectorySeparator; fname := getDocPath + 'editorcache' + DirectorySeparator;
ForceDirectories(fname); ForceDirectories(fname);
fname := fname + format('%.8X.txt', [crc32(0, @tempn[1], length(tempn))]); chksm := crc32(0, nil, 0);
chksm := crc32(chksm, @tempn[1], length(tempn));
fname := fname + format('%.8X.txt', [chksm]);
saveToFile(fname); saveToFile(fname);
end; end;
@ -205,16 +209,20 @@ procedure TCESynMemoCache.load;
var var
fname: string; fname: string;
tempn: string; tempn: string;
chksm: Cardinal;
begin begin
tempn := fMemo.fileName; tempn := fMemo.fileName;
if not fileExists(tempn) then exit; if not fileExists(tempn) then exit;
// //
fname := getDocPath + 'editorcache' + DirectorySeparator; fname := getDocPath + 'editorcache' + DirectorySeparator;
fname := fname + format('%.8X.txt', [crc32(0, @tempn[1], length(tempn))]); chksm := crc32(0, nil, 0);
chksm := crc32(chksm, @tempn[1], length(tempn));
fname := fname + format('%.8X.txt', [chksm]);
// //
if not fileExists(fname) then exit; if not fileExists(fname) then exit;
loadFromFile(fname); loadFromFile(fname);
end; end;
{$IFDEF DEBUG}{$R+}{$ENDIF}
{$ENDREGION} {$ENDREGION}
{$REGION TCESynMemoPositions ---------------------------------------------------} {$REGION TCESynMemoPositions ---------------------------------------------------}