Вопрос Нужна помощь в delphi

[Warfacer]

Нужно вставить картинку с диаграммой в зависимости от значения переменной Delphi

Чему бы Delphi не равнялось - ставится картинка 10.jpg

Как можно починить?



procedure TForm8.FormCreate(Sender: TObject);

begin

label1.caption := IntToStr(delphi);

begin

case delphi of

0 : image1.picture.LoadFromFile('10.jpg'

1 : image1.picture.LoadFromFile('1.jpg&#39 ;

2 : image1.picture.LoadFromFile('2.jpg&#39 ;

3 : image1.picture.LoadFromFile('3.jpg&#39 ;

4 : image1.picture.LoadFromFile('4.jpg&#39 ;

5 : image1.picture.LoadFromFile('5.jpg&#39 ;

6 : image1.picture.LoadFromFile('6.jpg&#39 ;

7 : image1.picture.LoadFromFile('7.jpg&#39 ;

8 : image1.picture.LoadFromFile('8.jpg&#39 ;

9 : image1.picture.LoadFromFile('9.jpg&#39 ;

10 : image1.picture.LoadFromFile('0.jpg&#39 ;

end;

end;

end;

 

[TheFussyFox]

procedure TForm8.FormCreate(Sender: TObject);
begin
label1.Caption := IntToStr(delphi);

case delphi of
0: image1.Picture.LoadFromFile('10.jpg'
1: image1.Picture.LoadFromFile('1.jpg'
2: image1.Picture.LoadFromFile('2.jpg'
3: image1.Picture.LoadFromFile('3.jpg'
4: image1.Picture.LoadFromFile('4.jpg'
5: image1.Picture.LoadFromFile('5.jpg'
6: image1.Picture.LoadFromFile('6.jpg'
7: image1.Picture.LoadFromFile('7.jpg'
8: image1.Picture.LoadFromFile('8.jpg'
9: image1.Picture.LoadFromFile('9.jpg'
10: image1.Picture.LoadFromFile('0.jpg'
else
image1.Picture.LoadFromFile('10.jpg' // Загружаем 10.jpg, если значение неизвестно
end;
end;

 

[volan]

все формы которые ты добавляешь в проект по умолчанию становятся в автосоздание, т.е. все формы создаются на старте программы и обработчик TForm8.FormCreate будет срабатывать только 1 раз, где-то на старте программы. чтобы починить, или вызывать Form8.FormCreate вручную перед показом формы, или перевесить свой код на событие OnShow

 

[Filipp]

объявите массив констант

vals: array[0..10] of string = (
'10.jpg', '1.jpg', '2.jpg', '3.jpg', '4.jpg', '5.jpg', '6.jpg', '7.jpg',
'8.jpg', '9.jpg', '0.jpg'
и напишите такой обработчик FormCreate:

var delphi: integer;
fileImage: string;
begin
//задаем имя файла для загрузки если переменная delphi
//не находится в диапазоне 0..10
fileImage:=vals[0];
//!!!не заметил где у Вас инициализируется переменная
//delphi, может поэтому в image загружается всегда
//картинка из одного файла

if (delphi>=0) and (delphi<=10) then
fileImage:=vals[delphi];
label1.Caption:=fileImage;
image1.Picture.LoadFromFile(fileImage);

end;

 

[мпмыыы]

Зачем так сложно если можно в LoadFromFile склеить число с названием файла? Зачем столько case-ов?