Delphi: строковые операции

[Sianessa]

Дана текстовая строка. Написать подпрограммы, выполняющие следующие действия:
* Подсчет количества слов в строке
* Подсчет количества цифр в строке
* Определение десятичного числа, которому соответствует строка, если она представляет запись этого числа в шестнадцатеричной системе
* Проверку соответствия содержимого строки правилам записи идентификаторов языков программирования.

В общем вот... У меня мало соображений по этому поводу, т.к. к сожалению я раньше не сталкивалась с такого рода задачами...
Помогите понять что нужно сделать и какие функции используются...

[MalCer]

Подсчет количества слов в строке можно так:

function CountWords(const s: string; Delimiters: TSysCharSet): integer;
var
  wStart, wLen: integer;
begin
  Result := 0;
  wStart := 1;
  while WordScan(s, wStart, wLen, Delimiters) do
  begin
    inc(Result);
    inc(wStart, wLen);
  end;
end;

Пример использования:

WordCount := CountWords('This is a sample', [' ']);

[Sianessa]

что-то как-то не совсем понятно, как оно работает...

[MalCer]

Так же можно применить алгоритм Бойера-Мура:

function Find(const S, P: string): Integer;
var
  i, j: Integer;
begin
  Result := 0;
  if Length(P) > Length(S) then
    Exit;
  for i := 1 to Length(S) - Length(P) + 1 do
    for j := 1 to Length(P) do
      if P[j] <> S[i + j - 1] then
        Break
      else if j = Length(P) then
      begin
        Result := i;
        Exit;
      end;

Функция Find ищет подстроку P в строке S и возвращает индекс первого символа подстроки или 0, если подстрока не найдена.
Этот алгоритм должен быть тебе понятен, т.к. тут нет ни чего сложного

[Sianessa]

Хм, спасибо, попробую...

[Sianessa]

В общем у меня ничего не выходит ((
Мож я чёт не так делаю =__=

[NotProCoder]

Тупо, но зато понятно. Сколько пробелов в строке столько и слов + 1. Если конечно в середине предложения не наставленно несколько пробелов подряд, то всё работает (чтобы работало и так мне писать лень).

function GetWordsCount(s : string) : integer;
var
  i : integer;
begin
  result := 0;
  s := Trim(s);
  for i := 1 to Length(s) do
    if s[i] = #32 then
      inc(result);
  if result > 0 then inc(result);
end;