source: branches/Independent/Devices/FileSystem.pas

unit FileSystem;

interface

uses
  Classes, SysUtils;

type
  TLoadFileEvent = function (Name: string): string of object;

  { TFileSystem }

  TFileSystem = class
  private
    FOnLoadFile: TLoadFileEvent;
  public
    function LoadFile(Name: string): string;
    constructor Create;
  published
    property OnLoadFile: TLoadFileEvent read FOnLoadFile write FOnLoadFile;
  end;

implementation

{ TFileSystem }

function TFileSystem.LoadFile(Name: string): string;
begin
  if Assigned(FOnLoadFile) then Result := FOnLoadFile(Name)
    else Result := '';
end;

constructor TFileSystem.Create;
begin
end;

end.