paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-19 01:29:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: fixed TSourceLog.Assign

Browse Source 
git-svn-id: trunk@1497 -
This commit is contained in:
lazarus 2002-03-10 21:41:14 +00:00
parent b15929b6a6
commit 6b7cd3b776
1 changed files with 2 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
components/codetools/sourcelog.pas
View File

@ -715,34 +715,13 @@ begin
end;
procedure TSourceLog.Assign(sl: TStrings);
var y,p,LineLen: integer;
s: string;
begin
if sl=nil then exit;
if IsEqual(sl) then exit;
IncreaseHookLock;
Clear;
sl.Text;
fSrcLen:=sl.Count*{$IFDEF win32}2{$ELSE}1{$ENDIF};
for y:=0 to sl.Count-1 do inc(fSrcLen,length(sl[y]));
fSource:='';
SetLength(fSource,fSrcLen);
fLineCount:=-1;
p:=1;
for y:=0 to sl.Count-1 do begin
s:=sl[y];
LineLen:=length(s);
if LineLen>0 then begin
System.Move(s[1],fSource[p],LineLen);
inc(p,LineLen);
end;
{$IFDEF win32}
fSource[p]:=#13;
inc(p);
{$ENDIF}
fSource[p]:=#10;
inc(p);
end;
fSource := sl.Text;
fSrcLen := Length(fSource);
DecreaseHookLock;
end;