Lines Matching refs:CurCode
26 procedure CheckDiff(CurCode: TCodeBuffer; const ExpLines: array of string);
126 procedure TCustomTestRefactoring.CheckDiff(CurCode: TCodeBuffer;
134 if High(ExpLines)=CurCode.LineCount-1 then begin
137 if ExpLines[i]<>CurCode.GetLine(i,false) then
147 for i:=0 to CurCode.LineCount-1 do
148 debugln(' ',CurCode.GetLine(i,false));
152 if i>=CurCode.LineCount then begin
156 CurLine:=CurCode.GetLine(i,false);
165 for i:=High(ExpLines)+1 to CurCode.LineCount-1 do begin
167 debugln('<<Found: ',CurCode.GetLine(i,false));
185 CurCode: TCodeBuffer;
195 CurCode:=CodeToolBoss.LoadFile(Filename,true,false);
196 AssertEquals('Load file error: '+Filename,true,CurCode<>nil);
197 if not CodeToolBoss.Explore(CurCode,Tool,true) then
211 aWith^.StatementStartPos:=FindPrevNonSpace(CurCode.Source,StatementNode.StartPos);
222 OldSource:=CurCode.Source;
224 if CodeToolBoss.RemoveWithBlock(CurCode,CodeXYPos.X,CodeXYPos.Y) then begin
230 CurCode.AdjustPosition(NewStartPos);
231 CurCode.AdjustPosition(NewEndPos);
232 if (NewStartPos<1) or (NewStartPos>CurCode.SourceLength)
233 or (NewEndPos<1) or (NewEndPos>CurCode.SourceLength)
237 debugln(CurCode.Source);
241 Src:=CurCode.Source;
261 +' at '+CurCode.AbsoluteToLineColStr(CommentEndPos)
275 CurCode.Source:=OldSource;