[Instantobjects-cvscommit] Source/Core InstantFpcUtils.pas,1.1,1.2

[uberto b. <ub...@us...>]

Update of /cvsroot/instantobjects/Source/Core
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9720

Modified Files:
	InstantFpcUtils.pas 
Log Message:
Added FormatMaskText for fpc

Index: InstantFpcUtils.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Core/InstantFpcUtils.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** InstantFpcUtils.pas	2 May 2005 23:26:33 -0000	1.1
--- InstantFpcUtils.pas	8 May 2005 20:23:59 -0000	1.2
***************
*** 10,17 ****
  procedure OleCheck(Result: HResult);
  
  implementation
  
  uses
!   typinfo, variants;
    
    
--- 10,19 ----
  procedure OleCheck(Result: HResult);
  
+ function FormatMaskText(const EditMask: string; const Value: string): string;
+ 
  implementation
  
  uses
!   typinfo, variants, maskedit;
    
    
***************
*** 38,41 ****
--- 40,48 ----
  
  
+ function FormatMaskText(const EditMask: string; const Value: string): string;
+ begin
+   Result := maskedit.FormatMaskText(EditMask, Value);
+ end;
+ 
  end.