Topic: операторы if else if then
Добрый день. в программировании ничего не смыслю (только по книжкам пытаюсь что-нибудь сделать).
Проблема такая, хочу сделать расчет,но у меня ошибка, then не правильно использую пишет:
приблизительно хотел так сделать:
procedure Client_culc_OnClick (Sender: string; Var Cancel: boolean; const Number: double);
begin
if Client.CheckBox1.Checked := true
and client.ComboBox1.Text := '1per'
and client.ComboBox2.Text := '1-7' then
begin
client.Edit13.Value := 18;
end;
else if
begin
Client.CheckBox1.Checked := true and client.ComboBox1.Text := '2per' and client.ComboBox2.Text := '1-7' then
client.Edit13.Value := 27;
end;
end;
там условия такие, что мне нужно выдавать стоимость, при трех условиях: количество дней; количество людей; и куда поездка.
client.ComboBox1.Text - это количество людей;
client.ComboBox2.Text - количество дней
Client.CheckBox1.Checked - куда поездка
здесь всего два варианта для теста взял: если клиент выбрал первое направление поездки, от 1 до 7 дней и 1 человек, то условно 18 долларов;
если клиент выбрал второе направление поездки, от 1 до 7 дней и 2 человека, то 27 долларов
и т.д. Таких условий очень много. Но думал, если эти сработают, то дальше масштабировать.