function ReplaceSub(str, sub1, sub2: String): String;
var
?? aPos: Integer;
?? rslt: String;
? begin
??? aPos := Pos(sub1, str);
??? //取得子字符串的位置
??? rslt := '';
??? while (aPos <> 0) do begin
????? rslt := rslt + Copy(str, 1, aPos - 1) + sub2;
????? Delete(str, 1, aPos + Length(sub1));
????? //刪除要替換的字符串
????? aPos := Pos(sub1, str);
??? end;
??? Result := rslt + str;
??? //添加要字符串
? end;

總結

以上是生活随笔為你收集整理的delphi函数的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。