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

MG: accelerated xml

Browse Source 
git-svn-id: trunk@3369 -
This commit is contained in:
lazarus 2002-09-20 09:27:47 +00:00
parent 3443807a79
commit 652ff7ba3f
2 changed files with 22 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
components/codetools/laz_xmlcfg.pas
View File

@ -209,7 +209,8 @@ end;
procedure TXMLConfig.SetFilename(const AFilename: String);
var
f: File;
MemStream: TMemoryStream;
ok: boolean;
cfg: TDOMElement;
begin
{$IFDEF MEM_CHECK}CheckHeapWrtMemCnt('TXMLConfig.SetFilename A '+AFilename);{$ENDIF}
@ -225,18 +226,20 @@ begin
doc.Free;
end;
AssignFile(f, AFileName);
{$I-}
Reset(f, 1);
{$I+}
if IOResult = 0 then
doc:=nil;
MemStream:=TMemoryStream.Create;
try
try
{$IFDEF MEM_CHECK}CheckHeapWrtMemCnt('TXMLConfig.SetFilename B');{$ENDIF}
ReadXMLFile(doc, f);
{$IFDEF MEM_CHECK}CheckHeapWrtMemCnt('TXMLConfig.SetFilename C');{$ENDIF}
finally
CloseFile(f);
ok:=false;
MemStream.LoadFromFile(AFilename);
ok:=true;
except
end;
if ok then
ReadXMLFile(doc,MemStream);
finally
MemStream.Free;
end;
if not Assigned(doc) then
doc := TXMLDocument.Create;
@ -253,6 +256,9 @@ end;
end.
{
$Log$
Revision 1.4 2002/09/20 09:27:47 lazarus
MG: accelerated xml
Revision 1.3 2002/09/13 16:58:27 lazarus
MG: removed the 1x1 bitmap from TBitBtn

7
components/codetools/laz_xmlwrite.pas
View File

@ -124,13 +124,13 @@ begin
stream.WriteByte(10);
end;
procedure wrtStr(s: string);
procedure wrtStr(const s: string);
begin
if s<>'' then
wrt(s[1],length(s));
end;
procedure wrtStrLn(s: string);
procedure wrtStrLn(const s: string);
begin
if s<>'' then
wrtln(s[1],length(s));
@ -479,6 +479,9 @@ end.
{
$Log$
Revision 1.4 2002/09/20 09:27:47 lazarus
MG: accelerated xml
Revision 1.3 2002/08/04 07:44:44 lazarus
MG: fixed xml reading writing of special chars