Замена после символа

Question

В текстовом файле есть строки:

112.12.34.555.123+1245.И тут текст
11.111.54.888+54544.И тут текст
333.231+554333.И тут текст

Как заменить первую точку (.) после знака плюс (+) на точку с запятой (;). Что бы получить результат:

112.12.34.555.123+1245;И тут текст
11.111.54.888+54544;И тут текст
333.231+554333;И тут текст

Если через StringReplace (То замена делается всех точек):

s  := StringReplace(s1, '.', ' ;', [rfReplaceAll, rfIgnoreCase]);

Answer 1

Найти и заменить.

Без проверок:

PlusPos := Pos('+', s);
PtPos := Pos('.', s, PlusPos); 
s[PtPos] := ';';

В старых версиях - PosEx