В Image Не загружается картинка jpeg

[Cyrus83]

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 прописал.

@темы: Delphi

Comments

[CD_Eater]

только что проверил на дельфи 7 - всё работает.

[Cyrus83]

CD_Eater, а у меня - нет.

Если вот так извратиться - работает. А напрямую в Image почему-то нет.

    j:= TJpegImage.Create;
   j.LoadFromFile('C:\Users\Кирилл\Documents\RAD Studio\Projects\Delphi Projects\показатели роста и веса\pics\3.jpg');
   Image1.Picture.Bitmap.Assign(j);
   j.Free;