Commit 39fa78b 1 parent 16ba1aa commit 39fa78b Copy full SHA for 39fa78b
File tree 1 file changed +1
-3
lines changed
1 file changed +1
-3
lines changed Original file line number Diff line number Diff line change @@ -897,10 +897,8 @@ procedure TEditBoxForm.MakeAllLinks(const MText : ANSIString; const Term : ANSIS
897
897
// EndP := Ptr + Offset-1;
898
898
while Ptr < EndP do begin
899
899
if Ptr^ = #13 then inc(NumbCR);
900
- debugln(' ch ' + inttostr(ord(Ptr^)));
901
900
inc(Ptr);
902
901
end ;
903
- debugln(' Corrected for ' + inttostr(NumbCR) + ' #13s' );
904
902
{ $endif}
905
903
MakeLink(Term, Offset -1 -NumbCR, UTF8length(Term));
906
904
Offset := UTF8Pos(Term, MText, Offset+1 );
@@ -1265,7 +1263,7 @@ procedure TEditBoxForm.ImportNote(FileName: string);
1265
1263
CheckForLinks(); // 360mS
1266
1264
Loader.Free;
1267
1265
TimerHouseKeeping.Enabled := False; // we have changed note but no housekeeping reqired
1268
- debugln(' Load Note=' + inttostr(gettickcount64() - T1) + ' mS' );
1266
+ // debugln('Load Note=' + inttostr(gettickcount64() - T1) + 'mS');
1269
1267
end ;
1270
1268
1271
1269
procedure TEditBoxForm.MenuItemWriteClick (Sender: TObject);
You can’t perform that action at this time.
0 commit comments