Mark this works very well, now if I can just figure out the other one, thanks so much.
> function Occurs( SubString, StringToSearch: string ): integer; > begin > Result := 0; > while Pos(SubString, StringToSearch) > 0 do begin > inc( Result ); > Delete( StringToSearch, 1, Pos( SubString, StringToSearch ) + > Length( SubString ) -1 ); > end; > end; > Greetings All, > > I need a functions that FoxPro DOS has for Delphi. > OCCURS() > OCCURS() returns the number of times the value of a character expression > is > found in the value of another character expression. OCCURS() returns > zero > if the value of an expression isn't found in the value of another > expression. __________________________________________________ Delphi-Talk mailing list -> [email protected] http://www.elists.org/mailman/listinfo/delphi-talk
