paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-20 11:59:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: TSourceLog.LoadFromStream: check if source has changed

Browse Source 
git-svn-id: trunk@35935 -
This commit is contained in:
mattias 2012-03-13 20:12:36 +00:00
parent 1de0002886
commit 6088a1a052
1 changed files with 20 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
components/codetools/sourcelog.pas
View File

@ -170,8 +170,8 @@ type
function OldIsEqual(sl: TStrings): boolean;
procedure Assign(sl: TStrings);
procedure AssignTo(sl: TStrings; UseAddStrings: Boolean);
procedure LoadFromStream(s: TStream);
procedure SaveToStream(s: TStream);
procedure LoadFromStream(aStream: TStream);
procedure SaveToStream(aStream: TStream);
property ReadOnly: boolean read FReadOnly write SetReadOnly;
property DiskEncoding: string read FDiskEncoding write FDiskEncoding;
property MemEncoding: string read FMemEncoding write FMemEncoding;
@ -1056,24 +1056,30 @@ begin
end;
end;
procedure TSourceLog.LoadFromStream(s: TStream);
procedure TSourceLog.LoadFromStream(aStream: TStream);
var
NewSrcLen: integer;
NewSource: String;
begin
IncreaseHookLock;
Clear;
if s=nil then exit;
s.Position:=0;
fSrcLen:=s.Size-s.Position;
if fSrcLen>0 then begin
SetLength(fSource,fSrcLen);
s.Read(fSource[1],fSrcLen);
try
if aStream=nil then exit;
aStream.Position:=0;
NewSrcLen:=aStream.Size-aStream.Position;
NewSource:='';
if NewSrcLen>0 then begin
SetLength(NewSource,NewSrcLen);
aStream.Read(NewSource[1],NewSrcLen);
end;
Source:=NewSource;
finally
DecreaseHookLock;
end;
fLineCount:=-1;
DecreaseHookLock;
end;
procedure TSourceLog.SaveToStream(s: TStream);
procedure TSourceLog.SaveToStream(aStream: TStream);
begin
if fSource<>'' then s.Write(fSource[1],fSrcLen);
if fSource<>'' then aStream.Write(fSource[1],fSrcLen);
end;
procedure TSourceLog.SetReadOnly(const Value: boolean);