Есть программка для расчета оптимального веса, основанная на весо-ростовых показателях. Ошибки нет, но по нажатию кнопки картинка в Image почему-то не загружается.
В uses модуль jpeg прописал.
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
factW := StrToInt(Edit2.text);
Rost := StrToInt(Edit1.Text);
OptW :=Rost - 100;
Delta := abs(factW - OptW);
if OptW = factW then begin
Label3.caption :='Ваш вес идеален!';
Image1.Picture.LoadFromFile('C:\1.jpg');
end;
В Uses модуль jpeg прописал.