好吧问答库 > delphi 初始化

delphi 初始化

procedure TForm1.btn1Click(Sender: TObject);var t:TCheckBox ;beginif rg1.ItemIndex<>-1 thenbegincase rg1.ItemIndex of0:edt1.Text:=✀1✀;1:edt1.Text:=✀2✀;2:edt1.Text:=✀3✀;3:edt1.Text:=✀4✀;end; edt1.Text:=edt1.Text+✀你选择了:✀ ; if t.Checked then edt1.Text:=t.Caption;end; end;end.[Warning] zao.pas(48): Variable ✀t✀ might not have been initialized这是怎么回事，怎么初始化啊，请高手指教啊忘给分了，如果能给你解决，我会给20分，谢谢了

2026年09月26日 02:26

有1个网友回答

网友（1）：

你是不是要动态创建一个CheckBox?
在按下button的时候动态创建的话,t.checked的默认值是false,你不去改变t.checked的值,那该值就一直为false,所以你这一句edt1.Text:=t.Caption是不会执行的,我就不明白你这样创建有什么用途,你可以直接把与t相关的语句删去,程序得到的结果是一样的
虽然这样定义一个checkbox没什么意义,但是初始化的话就t := TCheckBox.Create(self);有创建就有释放t.free