一个窗体上只有radiogroup和button两个控件,(方便大家做试验)。
procedure TForm1.FormShow(Sender: TObject);
begin
radiogroup1.Items.Add('1234567');
radiogroup1.Items.Add('7654321');
end;procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage(radiogroup1.Items.ValueFromIndex[radiogroup1.ItemIndex]);
end;可是最后提示窗口出现的总是少了第一个字符。
比如我选择第一个radiobox,弹出的是‘234567’,选择第二个就是‘654321’,我想得到是1234567和7654321啊!
procedure TForm1.FormShow(Sender: TObject);
begin
radiogroup1.Items.Add('1234567');
radiogroup1.Items.Add('7654321');
end;procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage(radiogroup1.Items.ValueFromIndex[radiogroup1.ItemIndex]);
end;可是最后提示窗口出现的总是少了第一个字符。
比如我选择第一个radiobox,弹出的是‘234567’,选择第二个就是‘654321’,我想得到是1234567和7654321啊!
showmessage(radiogroup1.Items.Strings[radiogroup1.ItemIndex]);
还有一个小小的问题:我在程序中使用的很多adotable,有必要在退出程序时,在窗体的onclose中挨个把这些adotable调用adotable.close,或者adotable.free吗?
大家讨论一下。