paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-18 17:09:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

Xml resource example: fix compilation due to some old change in TUnitResourcefileFormat. Don't know if this example works.

Browse Source 
git-svn-id: trunk@45793 -
This commit is contained in:
juha 2014-07-06 09:37:22 +00:00
parent b8d0a216c7
commit 9f766a4ecf
1 changed files with 0 additions and 6 deletions

6
examples/xmlresource/xmlresourcefile.pas
View File

@ -20,7 +20,6 @@ type
class procedure QuickReadXML(s: TStream; out AComponentName, AClassName, ALCLVersion: string);
public
class function FindResourceDirective(Source: TObject): boolean; override;
class function ResourceDirectiveFilename: string; override;
class function GetUnitResourceFilename(AUnitFilename: string;
{%H-}Loading: boolean): string; override;
class procedure TextStreamToBinStream(ATxtStream, ABinStream: TExtMemoryStream); override;
@ -619,11 +618,6 @@ begin
// result := CodeToolBoss.FindResourceDirective(Source as TCodeBuffer,1,1,cb,nx,ny,nt, ResourceDirectiveFilename,false);
end;
class function TXMLUnitResourcefileFormat.ResourceDirectiveFilename: string;
begin
result := '*.xml';
end;
class function TXMLUnitResourcefileFormat.GetUnitResourceFilename(
AUnitFilename: string; Loading: boolean): string;
begin