关于关键字的算法？

Question

请问有关于在一个文本字符串中根据设定的关键字，查找出它们的位置，有没有什么好的算法！另外如何能在文本编辑器里实现关键字的修改、删除等的保护。

Answer 1

>>查找出它们的位置
function Pos(Substr: string; S: string): Integer;>>何能在文本编辑器里实现关键字的修改、删除等的保护。
function StringReplace(const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): string;