[tdbf-cvs] tdbf Dbf.pas,1.33,1.34

[<md...@us...>]

Update of /cvsroot/tdbf/tdbf
In directory sc8-pr-cvs1:/tmp/cvs-serv5046

Modified Files:
	Dbf.pas 
Log Message:
overload, default by arioch

Index: Dbf.pas
===================================================================
RCS file: /cvsroot/tdbf/tdbf/Dbf.pas,v
retrieving revision 1.33
retrieving revision 1.34
diff -C2 -d -r1.33 -r1.34
*** Dbf.pas	28 Jun 2003 19:31:55 -0000	1.33
--- Dbf.pas	29 Jun 2003 14:28:10 -0000	1.34
***************
*** 299,303 ****
--- 299,307 ----
      procedure UpdateIndexDefs; override;
      procedure GetFileNames(Strings: TStrings; Files: TDbfFileNames);
+ {$IfDef DELPHI_4}
+     function  GetFileNames(Files: TDbfFileNames  = [dfDbf]  ): string; OverLoad;
+ {$Else}    
      function  GetFileNamesString(Files: TDbfFileNames (* = [dfDbf] *) ): string;
+ {$EndIf}    
      procedure GetIndexNames(Strings: TStrings);
  
***************
*** 2162,2166 ****
  end;
  
! function TDbf.GetFileNamesString(Files: TDbfFileNames (* = [dfDbf] *) ): string;
  var
    sl: TStrings;
--- 2166,2174 ----
  end;
  
! {$IfDef DELPHI_4}
! function TDbf.GetFileNames(Files: TDbfFileNames (* = [dfDbf] *) ): string; OverLoad;
! {$Else}
! function TDbf.GetFileNamesString(Files: TDbfFileNames ): string;
! {$EndIf}
  var
    sl: TStrings;