It looks like you're new here. Sign in or register to get started.
WHILE STRPOS(String,Substring) > 0 DO BEGIN Number := Number + 1; String := COPYSTR(String,STRPOS(String,SubString)+STRLEN(SubString)); END;
Comments
StrTemp := Str;
SubStrCount := 0;
SubStrLen := STRLEN(SubStr);
SubStrPos := STRPOS(StrTemp,SubStr);
WHILE SubStrPos > 0 DO
BEGIN
SubStrCount := SubStrCount + 1;
StrTemp := DELSTR(StrTemp,SubStrPos,SubStrLen);
SubStrPos := STRPOS(StrTemp, SubStr);
END;
Function "SubStrCount"
Parameters
String (Text, 250)
Substring (Text, 250)
Return Value
Number (Integer)
i hope you can need it 8)