paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 23:50:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

replace in files: fixed missing last character

Browse Source 
git-svn-id: trunk@9318 -
This commit is contained in:
mattias 2006-05-20 20:44:44 +00:00
parent cb8e2a21f3
commit 6d131c62a1
2 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/frmsearch.pas
View File

@ -298,7 +298,7 @@ var
ReplacedText: PChar;
ReplacedTextCapacity: integer;
ReplacedTextLength: integer;
ReplacedTextOriginalPos: integer;// 1-based
ReplacedTextOriginalPos: integer;// 1-based. e.g. 2 bytes has been replaced => ReplacedTextOriginalPos=3.
function FileIsOpenInSourceEditor: boolean;
begin
@ -434,7 +434,7 @@ var
EndLocks;
if ReplacedText<>nil then begin
if not fAbort then begin
GapLength:=OriginalFile.SourceLength-ReplacedTextOriginalPos;
GapLength:=OriginalFile.SourceLength+1-ReplacedTextOriginalPos;
NewLength:=ReplacedTextLength+GapLength;
GrowNewText(NewLength);
// copy the text between the last and this replacement
@ -515,8 +515,7 @@ begin
//writeln('TheFileName=',TheFileName,' len=',OriginalFile.SourceLength,' Cnt=',OriginalFile.LineCount,' TempSearch=',TempSearch);
Application.ProcessMessages;
CurLine:='';
for Line:= 0 to OriginalFile.LineCount -1 do
begin
for Line:= 0 to OriginalFile.LineCount -1 do begin
if (Line and $fff)=0 then begin
EndLocks;
Application.ProcessMessages;

2
lcl/interfaces/carbon/carbonint.pas
View File

@ -158,4 +158,4 @@ initialization
finalization
InternalFinal;
end.
end.