помогите разобраться

[ара]

подскажите, пож., как сделать так, чтобы при выборе эл-та в расскрывающемся списке и при введении данных пользователем считалась заранее введенная формула при нажатии на кнопку?

[necky]

Можно по конкретнее?

[ара]

на форме есть combobox, где пользователю предлагается выбрать определенное наименование. для каждого наименования есть определенная формула, которая отличается от других одной-двумя величинами и есть строки ввода куда вводятся польз свои данные для расчета. при нажатии на кнопку все это считается в зависимости от элемента в списке. подскажите, пож., с чего хотя бы начать?

[mihali4]

Сообщение от ара

на форме есть combobox, где пользователю предлагается выбрать определенное наименование. для каждого наименования есть определенная формула, которая отличается от других одной-двумя величинами и есть строки ввода куда вводятся польз свои данные для расчета. при нажатии на кнопку все это считается в зависимости от элемента в списке. подскажите, пож., с чего хотя бы начать?

Зачем нажимать каку-то кнопку?
У комбобокса есть событие OnChange, по которому (в зависимости от
ComboBox.ItemIndex) и должна считаться соответствующая формула.
Естественно, исходные данные должны вводиться в эдиты заранее...

[ара]

начал примерно так (конечно неправильно), просит "вставить требуемый тип" , подскажите, пож., как исправить!!!
procedure TForm.ComboBoxChange(Sender: TObject);
var
a,b,sum:integer;
begin
a:=strtoint(edit1.Text);
b:=strtoint(edit2.Text);
if ComboBox.ItemIndex[0] then sum:=a+b;
if ComboBox.ItemIndex[1] then sum:=a-b;
edit3.Text:=inttostr(sum);


end;

[mihali4]

if ComboBox.ItemIndex=0 then
или
case ComboBox.ItemIndex of
0:...
1:...
...

[ара]

если писать к примеру
case ComboBox.ItemIndex of
0:sum:=a+b;

1:sum:=a*b;
2:sum:=a/b;
...
пишет "постоянно ожидаемое выражение" Поскажите, пож., как это исправить и что это означает? И какой вариант предпочтительнее? Большое спасибо!!!

[mihali4]

case ComboBox.ItemIndex of
0:sum:=a+b;

1:sum:=a*b;
2:sum:=a/b;
end; !!!!!!!!

Учитесь пользоваться встроенным хэлпом!

[dron-s]

ара
почитай книгу, тебе станет на много всё понятнее...
отпадут множество вопросов и тебе же будет полезнее...

[ара]

Спасибо, за подсказку и за совет! Но у меня еще вопросю Я сделал все так как вы мне посоветовали, если сначала выбрать вариант из списка, а потом внести данные в строки ввода, то получается ошибка! Подскажите, как от нее избавиться!?