Работа со списками

@luhan · Регистрация: 26.08.2013

Author24 — интернет-сервис помощи студентам

Помогите найти где я допустил ошибку.

задание

Создайте проект, с помощью которого можно перевести в зависимости от выбранной страны фунты в килограммы. Для каждой страны свой коэффициент преобразования (кг = фунт*k)
Россия : k=0.4095
Англия : k=0.453592
Австрия : k=0.55001
Германия : k=0.5
Италия : k=0.31762
Необходимо выбрать из выпадающего списка название страны и из строки для ввода взять количество фунтов. Результат поместить в метку.

Кликните здесь для просмотра всего текста

Delphi

procedure TForm1.ComboBox1Click(Sender: TObject);
var k:integer;
begin
if ComboBox1.ItemIndex=0 then label1.Caption:=StrToInt(Edit1.Text)*StrToInt(k);
 
case k of
0:ComboBox1.ItemIndex=0.4095
1:ComboBox1.ItemIndex=0.453592
2:ComboBox1.ItemIndex=0.55001
3:ComboBox1.ItemIndex=0.5
4:ComboBox1.ItemIndex=0.31762
end;
 
end.

@FIL · 25.03.2014, 17:01

Сообщение от luhan

где я допустил ошибку

Это все - одна сплошная ошибка.

@luhan · 25.03.2014, 17:11 **[ТС]**

а как правильно будет тогда?

@FIL · 25.03.2014, 17:22

Сообщение от luhan

а как правильно будет тогда?

По индексу выбранной в ComboBox1 строки определяешь к.
Умножаешь его на содержимое Edit1.Text, переведенное в число.
Результат выводишь в label1.Caption, переведя его в строку.

@Алекcей · 25.03.2014, 17:23

попробуйте так

Delphi

 const Koef: array [0..4] of Real =(0.4095,0.453592,0.55001,0.5,0.31762);
 
.....
 
procedure TForm1.ComboBox1Click(Sender: TObject);
var r: real;
begin
if (ComboBox1.ItemIndex=-1) then Exit;
label1.Caption:=FloatToStr(StrToFloat(Edit1.Text)*Koef[ComboBox1.ItemIndex]);
end;

@luhan · 25.03.2014, 17:45 **[ТС]**

Алексей спасибо. Все работает.

@FIL Модератор 3490 / 2613 / 741 Регистрация: 19.09.2012 Сообщений: 7,974
	25.03.2014, 17:01	2
	Сообщение от luhan где я допустил ошибку Это все - одна сплошная ошибка. 0

@luhan 0 / 0 / 0 Регистрация: 26.08.2013 Сообщений: 65
	25.03.2014, 17:11 [ТС]	3
	а как правильно будет тогда? 0

@FIL Модератор 3490 / 2613 / 741 Регистрация: 19.09.2012 Сообщений: 7,974
	25.03.2014, 17:22	4
	Сообщение от luhan а как правильно будет тогда? По индексу выбранной в ComboBox1 строки определяешь к. Умножаешь его на содержимое Edit1.Text, переведенное в число. Результат выводишь в label1.Caption, переведя его в строку. 1

@luhan 0 / 0 / 0 Регистрация: 26.08.2013 Сообщений: 65
	25.03.2014, 17:45 [ТС]	6
	Алексей спасибо. Все работает. 0

Работа со списками

Решение