Разбиение текста на блоки, (разделено) Опции

[DekaR]

Я ещё раз попробовал.И у меня по непонятным причинам тоже правильно ставиться теперь.
Спасибо всем участникам обсуждения данной темы. Благодаря ВАМ я наконец-то понял работу с указателями!

[Saraby]

Здрасте, я здесь новичок, так что не судите строго за вопросы.
У меня проблема связана с парсеровщиком. Нужно разбить текст на блоки (хотябы) и добавить эти блоки в таблицу (на сервере). На входе - текст вроде:
BEGIN bla-bla-bla
bla-bla-bla
END BEGIN;
Далее могут идти похожие блоки, но вместо BEGIN другие определенные слова.
Если есть какие-нибудь советы по такой разбивке, подскажите, буду очень благодарна.


PS В грамматиках я не очень, так что...

[volvo]

Ты об этом:

type
  CharSet = set of char;

function OneDelim(s: string; delim: CharSet): string;
var i, k: byte;
begin

  i := 1;
  while i <= length(s) do begin
    if s[ i ] in delim then begin
      k := 0;
      while s[i + k] in delim do inc(k);
      delete(s, i, k);
      insert(#32, s, i);
    end;
    inc(i);
  end;
  OneDelim := s;
end;


const
  s: string = 'bla'#13#13#32#13#32'bla';
begin
  writeln(s);
  s := OneDelim(s, [#13, #32]);
  writeln(s);
end.

?

Я только одного не пойму: если тема в разделе Дельфи, почему тебя вообще интересует Паскалевский FAQ? В Дельфях есть столько своих функций для работы со строками, что Паскалю и не снилось!!! Почему ты их не используешь?

Или тему перенести в "Паскаль", чтобы избежать путаницы в дальнейшем?