Deiphi编译优化导致的死循环

请看下面这段代码：

procedure TForm1.Button1Click(Sender: TObject);
var
strColor: string;
i, R, G, B, p: integer;
strlist: TStringList;
begin
strColor := medt.Text ''''-'''';
strlist := TStringList.Create;
try
for R := 0 to 2 do //把变量R改为i正常
begin
//showmessage(inttostr(r)); 加上这句也正常了 循环体内读过R 值
p := pos(''''-'''', strColor);
strlist.Add(copy(strColor, 0, p-1));
delete(strColor, 1, p);
end;

R := strToint(strlist[0]);
G := strToint(strlist[1]);
B := strToint(strlist[2]);
finally
strlist.Free;
end;

Self.Color := TColor (RGB (R, G, B));

edtColor.Text := ''''$'''' IntToHex (TColor (RGB (R, G, B)), 8);

edtColor.SetFocus;
end;

因为循环语句中没有没有使用R变量，而在循环外有对R的使用。编译器优化导致的错误？ delphi中，在循环体内是不能更改循环因子的。

下面贴出反编译的汇编代码：

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有