From dfb5099c23c62fc64ce45b1c22f46d7a84ff8114 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Wed, 18 Sep 2013 15:14:28 +0000
Subject: [PATCH] examples: xmlresource

git-svn-id: trunk@42864 -
---
 examples/xmlresource/xmlresource.pas     | 21 ---------------------
 examples/xmlresource/xmlresourcefile.pas | 10 ++++++----
 2 files changed, 6 insertions(+), 25 deletions(-)

diff --git a/examples/xmlresource/xmlresource.pas b/examples/xmlresource/xmlresource.pas
index 47505b7281..b51d61c3d3 100644
--- a/examples/xmlresource/xmlresource.pas
+++ b/examples/xmlresource/xmlresource.pas
@@ -19,24 +19,3 @@ end;
 initialization
   RegisterPackage('xmlresource', @Register);
 end.
-{ This file was automatically created by Lazarus. Do not edit!
-  This source is only used to compile and install the package.
- }
-
-unit xmlresource;
-
-interface
-
-uses
-  xmlresourcefile, LazarusPackageIntf;
-
-implementation
-
-procedure Register;
-begin
-  RegisterUnit('xmlresourcefile', @xmlresourcefile.Register);
-end;
-
-initialization
-  RegisterPackage('xmlresource', @Register);
-end.
diff --git a/examples/xmlresource/xmlresourcefile.pas b/examples/xmlresource/xmlresourcefile.pas
index bbd55321c0..159cc92b9c 100644
--- a/examples/xmlresource/xmlresourcefile.pas
+++ b/examples/xmlresource/xmlresourcefile.pas
@@ -21,11 +21,12 @@ type
   public
     class function FindResourceDirective(Source: TObject): boolean; override;
     class function ResourceDirectiveFilename: string; override;
-    class function GetUnitResourceFilename(AUnitFilenae: string): string; override;
+    class function GetUnitResourceFilename(AUnitFilename: string;
+      {%H-}Loading: boolean): string; override;
     class procedure TextStreamToBinStream(ATxtStream, ABinStream: TExtMemoryStream); override;
     class procedure BinStreamToTextStream(ABinStream, ATextStream: TExtMemoryStream); override;
     class function GetClassNameFromStream(s: TStream; out IsInherited: Boolean): shortstring; override;
-    class function CreateReader(s: TStream; var DestroyDriver: boolean): TReader; override;
+    class function CreateReader(s: TStream; var {%H-}DestroyDriver: boolean): TReader; override;
     class function CreateWriter(s: TStream; var DestroyDriver: boolean): TWriter; override;
     class function QuickCheckResourceBuffer(PascalBuffer, LFMBuffer: TObject;
       out LFMType, LFMComponentName, LFMClassName: string; out
@@ -624,9 +625,9 @@ begin
 end;
 
 class function TXMLUnitResourcefileFormat.GetUnitResourceFilename(
-  AUnitFilenae: string): string;
+  AUnitFilename: string; Loading: boolean): string;
 begin
-  result := ChangeFileExt(AUnitFilenae,'.xml');
+  result := ChangeFileExt(AUnitFilename,'.xml');
 end;
 
 class procedure TXMLUnitResourcefileFormat.TextStreamToBinStream(ATxtStream,
@@ -677,6 +678,7 @@ class function TXMLUnitResourcefileFormat.QuickCheckResourceBuffer(
 var
   ms: TStringStream;
 begin
+  Result:=mrOk;
   ms := TStringStream.Create((LFMBuffer as TCodeBuffer).Source);
   try
     QuickReadXML(ms, LFMComponentName, LFMClassName, LCLVersion);