Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Здравствуйте!Дорогие эксперты, помогите пожалуйста решить задачу, никак не получается.

Вопрос задала: evanika16 (статус: Посетитель) Вопрос отправлен: 21 марта 2010, 18:02 Состояние вопроса: открыт, ответов: 1.

Ответ #1. Отвечает эксперт: min@y™

Такая функция уже есть. Находится она в модуле RxStrUtils.pas пакета RxLib. Вот она:

function NPos(const C: string; S: string; N: Integer): Integer;
var
  I, P, K: Integer;
begin
  Result := 0;
  K := 0;
  for I := 1 to N do begin
    P := Pos(C, S);
    Inc(K, P);
    if (I = N) and (P > 0) then begin
      Result := K;
      Exit;
    end;
    if P > 0 then Delete(S, 1, P)
    else Exit;
  end;
end;

Ответ отправил: min@y™ (статус: Доктор наук) Время отправки: 21 марта 2010, 19:04

Мини-форум вопроса

Мини-форум пуст.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.