делфи. в чем ошибка?

Question

procedure TForm1.Button2Click(Sender: TObject);

var sum,cena,kol:real;

s:string;

summ_text:string;

cod1,cod2:integer;

begin

val(edit2.Text,cena,cod1);

val(edit2.Text,kol,cod2);

sum:=cena*kol;

str(sum:10:2,s);

button1.SetFocus;

label4.Caption:=('Итого к оплате: ' +trim(s)+',руб')

в чем ошибка?

Неизвестно · Accepted Answer

Ошибка говорит что надо делать уроки

Игорь Савенок · Answer

по-моему где то нехватает запятой,,,

Sergei · Answer

а какую ошибку то выдает?

Инна Плужник · Answer

точку с запятой в строке label4.Caption:=('Итого к оплате: ' +trim(s)+',руб') поставь и вроде бы не хватает end. в конце что мало вероятно

Ольга Гуркина · Answer

val(edit2.Text,cena,cod1);
val(edit2.Text,kol,cod2);
Значения берутся из одного и того же Edit'а

Вообще, всё намного проще можно было сделать:

procedure TForm1.Button2Click(Sender: TObject);
var
 sum, cena, kol : real;
begin
 Cena := StrToFloat(Edit2.Text);
 Kol := StrToFloat(Edit1.Text);
 Sum := Cena * Kol;
 Label4.Caption := 'Итого к оплате: ' + FloatToStr(Sum) + ',руб';
end;

Если что, для форматированного вывода существует функция FloatToStrF. Можно задать, в каком виде будет выводиться сумма.
Следуя из вашего примера, что-то типа FloatToStrF(Sum, ffFixed, 10, 2)