paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 17:40:53 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed some AV's

Browse Source 
git-svn-id: trunk@8030 -
This commit is contained in:
joost 2007-07-12 20:58:15 +00:00
parent bb8ba21960
commit 86823a8c86
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
packages/fcl-web/src/fphtml.pp
View File

@ -228,11 +228,11 @@ begin
result := el.asstring; result := el.asstring;
finally finally
if WCreated then if WCreated then
FWriter.Free; FreeAndNil(FWriter);
end; end;
finally finally
if created then if created then
FDocument.Free; FreeAndNil(FDocument);
end; end;
end; end;
@ -419,7 +419,7 @@ Var
M : TMemoryStream; M : TMemoryStream;
begin begin
CreateDocument; FDocument := CreateDocument;
Try Try
FWriter:=CreateWriter(FDocument); FWriter:=CreateWriter(FDocument);
Try Try
@ -435,10 +435,10 @@ begin
end; end;
FDocument.SaveToStream(AResponse.ContentStream); FDocument.SaveToStream(AResponse.ContentStream);
Finally Finally
FWriter.Free; FreeAndNil(FWriter);
end; end;
Finally Finally
FDocument.Free; FreeAndNil(FDocument);
end; end;
end; end;