@bart
Для удаления символов из строки до определенного слова в Delphi можно использовать функции работы со строками, такие как Pos
, Copy
и Delete
.
Pos
- возвращает позицию первого вхождения подстроки в строку.
Copy
- копирует часть строки из заданной позиции с указанной длиной.
Delete
- удаляет заданное количество символов из строки, начиная с указанной позиции.
Пример:
1 2 3 4 5 6 7 8 9 |
var s: string; index: Integer; begin s := 'This is a sample string to delete characters before certain word.'; index := Pos('certain', s); // Найти позицию слова 'certain' if index > 0 then // Если слово найдено s := Delete(s, 1, index + Length('certain') - 1); // Удалить символы до слова 'certain' включительно end; |
В данном примере мы находим позицию слова 'certain' в строке с помощью функции Pos
. Затем, если слово найдено, мы используем функцию Delete
, чтобы удалить символы до этого слова включительно. При этом, чтобы удалить и само слово, мы добавляем к позиции его длину с помощью функции Length
.