Аналог функции

[ZuBy]

Сообщение от JUDAS

Советчик, не пиши никогда эту фразу.

Проверил на делфи 7, сменив универсальность кода с Tag1.Length на Length(Tag1)

implementation
uses StrUtils;

{$R *.dfm}


function Parse(const Tag1, Tag2, source: string): string;
var
  p, p2: Integer;
begin
  Result := '';
  p := PosEx(Tag1, source);

  p2 := PosEx(Tag2, source, p + Length(Tag1) + 1);
  if (p = 0) or (p2 = 0) then
    exit;
  if p2 > p then
    Result := (Copy(source, p + Length(Tag1), p2 - p - Length(Tag1)));
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  Caption := Parse('','дуб', 'столетний дуб');
end;

в заголовке "пустота"
Вопрос, в чём универсальность?

так ты задай правильные данные, речь идёт о тексте между тегов.
'' - это не тег, если ты видел там нет обработки на этот случай. так как функция вытаскивает между тегов

и еще проверять на d7 код, который написан на XE. чудные Вы...

Сообщение от ResourceSpace

Вообще-то не верно Запустил код автора на Д7, выдало "новаРАЗопятьДВАи того", почему-то без "с".
В Д7 подобных функций не встречал.

я говорил о своей функции, а не об автора...
для тех у кого d7, видео записать?)

[JUDAS]

Профессионал, ты написал что твой код универсален.
Универсальность кода, судя по тому как его описал автор, должен
а) найти текст PosA вначале строки str и удалить его, если такой имеется
б) найти текст PosB в конце строки str и удалить его, если такой имеется
в) ничего не делать вначале текста если PosA не найден
г) ничего не делать в конце текста если PosB не найден

Теперь, я пользуюьс твоей "универсальной" функцией которую ты мне описываешь следующим хидером

function Parse(const Tag1, Tag2, source: string): string;

Tag1 строка, которая может принимать значения включая '' (emptystr) так же как и Tag2. Вопрос, что делает твоя универсальная функция, если у меня нет префиксного тега ?

>так ты задай правильные данные
Профессионал, запомни, не оконечный пользователь должен задавать правильные данные, а программист пишущий функцию должен проверить что ему впихивают на входе.
Грош цена такому программеру, который пишет библиотечную функцию и не проверяет входные параметры, а место для кода такого программера - вот тут http://www.govnokod.ru/

[Должно быть имя?]

Сообщение от JUDAS

Профессионал, ты написал что твой код универсален.
Универсальность кода, судя по тому как его описал автор, должен
а) найти текст PosA вначале строки str и удалить его, если такой имеется
б) найти текст PosB в конце строки str и удалить его, если такой имеется
в) ничего не делать вначале текста если PosA не найден
г) ничего не делать в конце текста если PosB не найден

Да, всё верно! У меня всегда были проблемы с объяснением

[ZuBy]

JUDAS, а теперь еще раз перечитай, что я написал

пользуюсь своей, она универсальна под любую платформу.

любая платформа это не Windows, есть понимание?
потому что в андроиде и ios(mac) строки начинаются с 0, а не как в Windows с 1.
и многие функции перебором, по символьная проверка строк или парсинг или удаление будут некорректны если не учитывать это правило
пример с перебором будет выглядеть так

for i := {$IFDEF MSWINDOWS}1{$ELSE}0{$ENDIF} to длина.строки do

а удаление процедурой Delete не изменилось, там удалять нужно с 1 не важно под какую платформу это пишется

Если интересно почитай, а потом уже пиши про универсальность платформ. ок?

[Stilet]

в андроиде и ios(mac) строки начинаются с 0, а не как в Windows с 1.

Это как так? О_о Одно и то же Делфи, и разные образмеривания строк???
Доказы, пожалуйста, в студию.

[min@y™]

Чот не вкурю, функция извлекает кусок строки между подстроками PosA и PosB, так штоли?

[evg_m]

Сообщение от JUDAS
Профессионал, ты написал что твой код универсален.
Универсальность кода, судя по тому как его описал автор, должен
а) найти текст PosA вначале строки str и удалить его, если такой имеется
б) найти текст PosB в конце строки str и удалить его, если такой имеется
в) ничего не делать вначале текста если PosA не найден
г) ничего не делать в конце текста если PosB не найден

Сообщение от Должно быть имя?

Да, всё верно! У меня всегда были проблемы с объяснением

и опять. Есть строка
смотриРАЗсмотриДВАсноваРАЗопятьДВАи тогоРАЗитогиДВАвсего
в качестве фильтра(строк отсечения) задаем
сначала ДВА
и в конце РАЗ !!!

Какой должен быть результат?

результат моей функции будет "снова"

что-то из двух неверно, либо набор правил, либо ответ на пример.
а именно правило (б)
смотриРАЗсмотриДВАсноваРАЗопятьДВАи тогоРАЗитогиДВАвсего

[Vapaamies]

Когда я был маленьким, у меня тоже была бабушка... А еще я любил писать всякие свои функции, которые делали якобы то, что нельзя сделать стандартными функциями, и таскал их из проекта в проект.

А потом я вырос и понял, что мои представления об обработке строк были неверными. Сильно повлияло чтение исходников VCL и исходников хороших компонентов. С тех пор как-то не возникает желания писать универсальные строковые функции и таскать их из проекта в проект.

[ZuBy]

Сообщение от Stilet

Это как так? О_о Одно и то же Делфи, и разные образмеривания строк???
Доказы, пожалуйста, в студию.

как тебе доказать? я привел пример с циклом for для строк.
можете почитать

[Stilet]

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