Много Image на форме... Рандом картинки из дб Access

[Lexovt]

procedure TForm1.FormActivate(Sender: TObject);
 var
   i:integer;
   img:TImage;
begin

with DataModule2.tbl1 do begin
 randomize;
 for i:=1 to 10 do
 begin
  img:=TImage(FindComponent('Img'+IntToStr(i)));
  if img<>nil then begin
   first; moveby(random(RecordCount));
   img.LoadFromFile(FieldByName('Фото')).AsString;
  end;
 end;
end;
end;

[Error] Unit1.pas(76): Undeclared identifier: 'LoadFromFile'
Что то не так

[ZuBy]

Что то не так

 img.Picture.LoadFromFile(FieldByName('Фото')).AsString;

[Lexovt]

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

 img.Picture.LoadFromFile(FieldByName('Фото')).AsString;

Эт я понял))..а что именно нет(

[Stilet]

а что именно нет(

.Picture видишь? - это ответ на твой вопрос, раз уж нет желания почитать про методы TImage

[Lexovt]

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

.Picture видишь? - это ответ на твой вопрос, раз уж нет желания почитать про методы TImage

Я так пробывал... выдаёт
[Error] Unit1.pas(76): Incompatible types: 'String' and 'TField'

и пробывал

img.Picture.Bitmap.LoadFromFile(FieldByName('Фото')).AsString;

тоже самое выдаёт

[Stilet]

Я так пробывал...

А надо не бездумно копипастить а моск включать, и читать хелпы.

 img.Picture.LoadFromFile(FieldByName('Фото').AsString);

[Lexovt]

Хм...да со скобочками беда путанина....

терь только ...всё запускается но картинки не загружаются.

with DataModule2.tbl1 do begin
 randomize;
 first; moveby(random(RecordCount));
img1.Picture.Bitmap.LoadFromFile(ExtractFilePath(paramstr(0))+'Obl\'+DataModule2.tbl1.FieldByName('Фото').asString);

вот так картинка грузится ..но это одна картинка...и в один Image

[Lexovt]

img:=TImage(FindComponent('Img'+Int ToStr(i)));

какая то трабла вот в этой строке

[Serge_Bliznykov]

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

какая то трабла вот в этой строке

во-первых, попробуйте запишисать эту строчку так:

img:=TImage(Form1.FindComponent('Img'+IntToStr(i)));

во-вторых, на форме есть 10 штук компонентов класса TImage с именами Img1 Img2 Img3 .. и т.д. вплоть до Img10 ?!
Именно на форме Form1! НЕ на панели, не на фрейме, ни на TPageControl - просто на форме?!

в-третьих, уберите Randomize из цикла. Эту процедуру нужно вызывать один раз при запуске программы!


про допускание повторов я Вас не просто так спрашивал.
Учтите, что Ваш код от повторов никак не защищен!

[Lexovt]

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

во-первых, попробуйте запишисать эту строчку так:

img:=TImage(Form1.FindComponent('Img'+IntToStr(i)));

во-вторых, на форме есть 10 штук компонентов класса TImage с именами Img1 Img2 Img3 .. и т.д. вплоть до Img10 ?!
Именно на форме Form1! НЕ на панели, не на фрейме, ни на TPageControl - просто на форме?!

в-третьих, уберите Randomize из цикла. Эту процедуру нужно вызывать один раз при запуске программы!


про допускание повторов я Вас не просто так спрашивал.
Учтите, что Ваш код от повторов никак не защищен!

Да они просто на форме....и да про повторы я уже понял что они будут