今天天气好晴朗处处好风光，好天气好开始，图老师又来和大家分享啦。下面给大家推荐Deiphi编译优化导致的死循环，希望大家看完后也有个好心情，快快行动吧！
【 tulaoshi.com - 编程语言 】
请看下面这段代码：
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);
（本文来源于图老师网站，更多请访问https://www.tulaoshi.com/bianchengyuyan/） edtColor.SetFocus;
end;
来源:https://www.tulaoshi.com/n/20160219/1621186.html
看过《Deiphi编译优化导致的死循环》的人还看了以下文章 更多>>
