Добрый день. Подскажите пожалуйста как у строки 192.68.45.567 удалить все симоволы например после 45

 

S:=SetLength ('192.68.45.567', 9);

Устанавливает новую меньшую длинну строки, в данном случае длинна строки 9 символов.

 

Delete(S, pos('45', S) + 2, Length(S) - pos('45', S) - 2);

Где S - начальная строка