[Alex7]

Подскажите пожалуйста, такой код:

Код:

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".

[Guaho]

1) Перевести величины из строковых в числовые и далее сравнивать только числовые величины, а не строковые.
2) Дописать ещё одно условие в стиле "and (Edit12.text<'18')", только для числовых величин.