Home RAP
New Blog Posts: Merging Reports - Part 1 and Part 2

adding FileExists function to RAP

edited June 2003 in RAP
Is this the correct way to add the FileExists to the code toolbox? I can't
get it to compile so I think I'm missing something. Is there a better way
to see if a file exists before loading it into an image?

unit rapEx;

interface

uses
Forms, raFunc, ppRTTI,sysUtils;

type
TmyFilenameFunction = class(TraSystemFunction)
public
class function Category: String; override;
end;

TmyApplicationFilenameFunction = class (TmyFilenameFunction)
public
procedure ExecuteFunction(aParams: TraParamList); override;
class function GetSignature: String; override;

class function HasParams: Boolean; override;
end;

implementation

class function TmyFilenameFunction.Category: String;
begin
result := 'FileUtils';
end;

procedure TmyApplicationFilenameFunction.ExecuteFunction(aParams:
TraParamList);
var
lsResult: Boolean;
filePath : String;
begin
getParamValue(0,filePath);
lsResult := FileExists(filePath);
SetParamValue(1, lsResult);
end;

class function TmyApplicationFilenameFunction.GetSignature: String;
begin
result := 'function FileExists(aString : string) : boolean;';
end;

class function TmyApplicationFilenameFunction.HasParams: Boolean;
begin
result := False;
end;


Initialization
raRegisterFunction('FileExists', TmyApplicationFilenameFunction);

end.

Thanks,

Karen

Comments

  • edited June 2003
    Hi Karen,

    it compiles fine here.
    Method 'HasParams' should return 'True'!

    regards,
    Chris Ueberall;
This discussion has been closed.