delphi while语句死循环

function GetBody3(const x , y,z: string): string; //在x中查找y开头,z结尾的
var
ipos1: integer;
ipos2: integer;
str:string;
begin
while((Pos(y, x)>0)and (Pos(z, x)>0)) do
begin
iPos1 := Pos(y, x);
iPos2 := Pos(z, x);
str:=Copy(z, iPos1, ipos2-ipos1);
result:= StringReplace(z, str, '', [rfReplaceAll]);
end;
end;

但是x是const

（1）如果只想查一次就在 result:= StringReplace(z, str, '', [rfReplaceAll]);后面加 break;

（2）查多条就在result:= StringReplace(z, str, '', [rfReplaceAll]); 后面加：x := copy(x, 1, iPos1-1) + copy(x, ipos2 + length(z), length(x));

function getnum(ibeg,iend:integer):ingteger; var num:integer; begin if ibeg > iend then //ibeg iend互换 begin num:= ibeg; ibeg:= iend; iend:= num; num:= 0; end; while ibeg <= iend do begin num:=num + ibeg; ibeg:=ibeg + 1; end; result:=num; end; 你要非喜欢用if就 function getnum(ibeg,iend:integer):ingteger; var num:integer; begin while 1 = 1 do //死循环 begin num:=num + ibeg; ibeg:=ibeg + 1; if ibeg > iend then break; //符合条件打断 end; result:=num; end;

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息