moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2025-02-07 02:30:19 -05:00
Code Issues Releases Wiki Activity

Fixed #166

Browse Source
This commit is contained in:
Raymond 2010-04-10 16:26:26 +02:00
parent 6183f771c9
commit fb6a8be038
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
Units/Misc/v_ideCodeInsight.pas
View File

@ -885,6 +885,8 @@ begin
end;
constructor TCodeInsight.Create(FileName: string = '');
var
StrList : TStringList;
begin
inherited Create;
@ -902,8 +904,11 @@ begin
fOwnStream := (fFileName <> '');
if fOwnStream then
begin
StrList := TStringList.Create;
fMemoryStream := TMemoryStream.Create;
fMemoryStream.LoadFromFile(fFileName);
StrList.LoadFromFile(filename); //Converts the line-endings.
StrList.SaveToStream(fMemoryStream);
Strlist.free;
end
else
fMemoryStream := nil;