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.
|
