Delphi如何在输入新文本时使T形状改变颜色

我是编程新手，我不确定这为什么行不通：

procedure TGIFtest.Edit1Change(Sender: TObject);
var
  Text : integer;
begin
 if text < 5 then
   shape1.brush.Color := clred
 else
   if text >= 5 then
     shape1.brush.Color := clgreen;
 end;

程序TGIFtest.Edit1Change（发送方：TObject）；
变量
文本：整数；
开始
如果文本小于5，则
shape1.brush.Color:=clred
其他的
如果文本>=5，则
shape1.brush.Color:=clgreen；
终止

---

当在编辑中输入的数字小于5时，我希望形状为红色，如果输入的数字为5或更高，则形状为绿色。谢谢。

变量

Text

未初始化，因此您将有一个随机值

如果要从编辑文本（字符串）中获取整数值，则必须获取该文本并将其转换为整数值

procedure TGIFtest.Edit1Change(Sender: TObject);
var
  Text : integer;
begin

  Text := StrToInt( Edit1.Text );

  if text < 5 then
    shape1.brush.Color := clred
  else
    if text >= 5 then
      shape1.brush.Color := clgreen;
end;

程序TGIFtest.Edit1Change（发送方：TObject）；
变量
文本：整数；
开始
Text:=stroint（Edit1.Text）；
如果文本小于5，则
shape1.brush.Color:=clred
其他的
如果文本>=5，则
shape1.brush.Color:=clgreen；
终止

如果编辑文本无法转换为整数，则会引发异常

---

为了避免这种情况，您可以使用

strotintdef

或

TryStrToInt

变量

Text

未初始化，因此会有一个随机值

如果要从编辑文本（字符串）中获取整数值，则必须获取该文本并将其转换为整数值

procedure TGIFtest.Edit1Change(Sender: TObject);
var
  Text : integer;
begin

  Text := StrToInt( Edit1.Text );

  if text < 5 then
    shape1.brush.Color := clred
  else
    if text >= 5 then
      shape1.brush.Color := clgreen;
end;

程序TGIFtest.Edit1Change（发送方：TObject）；
变量
文本：整数；
开始
Text:=stroint（Edit1.Text）；
如果文本小于5，则
shape1.brush.Color:=clred
其他的
如果文本>=5，则
shape1.brush.Color:=clgreen；
终止

如果编辑文本无法转换为整数，则会引发异常

为了避免这种情况，您可以使用

strotintdef

或

TryStrToInt