Подскажите пожалуйста, такой код:
Код:
procedure TForm1.Button7Click(Sender: TObject);
begin
if (RadioGroup2.ItemIndex=0) and (Edit12.text<'18') then
Edit13.Text := FloatToStr(1.5);
end;
как сделать чтобы в условии здесь ...and (Edit12.text<'18') then... было не "
меньше 18" а "
от 1 до 18".