常规参数
文章标题：
权重：
文章摘要：
procedure ReplaceTextA(var SText: string; TextFind, TextReplace: string);var S: string; SLen: LongInt; SPos: Integer;begin S := ''; SLen := Length(TextFind); SPos := Pos(TextFind, SText); while SPos 0 do begin S := S + Copy(SText, 1, SPos - 1) + Tex
关键字：
字符串 查找 SText SPos TextFind string Pos begin end
管理密码: