instantobjects-cvscommit

[Nando D. <na...@us...>]

Update of /cvsroot/instantobjects/Source/Catalogs/IBFb
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26112/Catalogs/IBFb

Modified Files:
	InstantIBFbCatalog.pas 
Log Message:
fix for D5 compatibility

Index: InstantIBFbCatalog.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Catalogs/IBFb/InstantIBFbCatalog.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** InstantIBFbCatalog.pas	17 Jun 2005 19:10:42 -0000	1.1
--- InstantIBFbCatalog.pas	26 Jun 2005 13:29:46 -0000	1.2
***************
*** 61,66 ****
          Broker.ReleaseDataSet(IndexFields);
        end;
!       IndexFieldList.Delimiter := ';';
!       Result := IndexFieldList.DelimitedText;
      finally
        IndexFieldList.Free;
--- 61,66 ----
          Broker.ReleaseDataSet(IndexFields);
        end;
!       Result := StringReplace(IndexFieldList.CommaText, ',', ';',
!         [rfReplaceAll]);
      finally
        IndexFieldList.Free;