0

Есть 24 компонента Image. Есть 12 картинок в формате BMP и именами от 1.BMP до 12.BMP. Есть массив из 24 значений от 1 до 12 включительно. Нужно сделать так: берётся первое значение массива(например это значение 4) и в компонент Image1 загрузить 4.BMP затем берётся второе значение массива(например, это значение 11) и в Image1 загрузить 11.BMP.

Гугл подсказал, как похожее делать с Edit, я попытался переделать в нужное мне, вышло что-то типо этого. Похоже, что работать это не должно и в теории...

for N := 1 to 24 do  begin
J := StrToInt(Timage(FindComponent('Image' + IntToStr(N))).Picture.LoadFromFile(IntToStr(pole[N])+'.BMP'));
//pole - тот самый массив типа integer
end;

Какие есть варианты сделать задуманное?

8
  • а почему не for N := 1 to 24 do begin Timage(FindComponent('Image'+IntToStr(N))).Picture.LoadFromFile(IntToStr(pole[N])+'.BMP'); //pole - тот самый массив типа integer end; Зачем получать J? Правда данный код будет работать, если на форме есть Image с нужными именами.
    – KoVadim
    11 янв 2013 в 9:04
  • @KoVadim Не откомпилируется
    – Rsecomua
    11 янв 2013 в 9:07
  • А у меня компилируется. На что ругается?
    – KoVadim
    11 янв 2013 в 9:10
  • [DCC Error] Unit1.pas(30): E2003 Undeclared identifier: 'Timage' [DCC Error] Unit1.pas(30): E2066 Missing operator or semicolon [DCC Error] Unit1.pas(33): E2029 ';' expected but '.' found [DCC Error] Unit1.pas(35): E2029 Declaration expected but end of file found
    – Rsecomua
    11 янв 2013 в 9:14
  • Timage - по той причине, что на форме нет TImage и делфи не добавила для Вас его. Но если их нет на форме, то либо нужно самостоятельно добавить (и прописать в uses), либо не жаловаться. Но если мой код не компилируется, то и Ваш код, приведенный ниже, также не скомпилируется. Три следующих ошибки - в следствии этой. Конечно, может быть делфи теперь стала резко "чувствительная к регистру" и нужно писать TImage.
    – KoVadim
    11 янв 2013 в 9:17

1 ответ 1

1

Вот так это будет выглядеть

for N := 1 to 24 do  begin
with FindComponent('Image' + IntToStr(n)) as TImage do
begin
Picture.LoadFromFile(IntToStr(pole[N])+'.BMP');
end;
end;
5
  • Большое спасибо! Работает как часы :) Только, пожалуйста, разъясните, как работает строка with FindComponent('Image' + IntToStr(n)) as TImage do
    – SaheR
    11 янв 2013 в 9:43
  • 1
    Изучите, что такое with. Но если не понимаете, как работает код, используйте мой - он должен быть понятнее.
    – KoVadim
    11 янв 2013 в 10:00
  • а, With добавляет к следующей(а если в операторных скобках, то следующим) строчкам перед ними код, находящийся меж With и do? Теперь ясно, благодарю за ссылку :)
    – SaheR
    11 янв 2013 в 10:20
  • @SaheR, не совсем. With говорит, что дальше будет проходить работа с определенным типом объектов
    – teanЫЧ
    11 янв 2013 в 10:27
  • > With говорит, что дальше будет проходить работа с определенным типом объектов нет. With создает "невидимую" ссылку на объект, который ему передан. Теперь, компилятор, когда будет разбирать код внутри (между begin ... end), то будет пробовать скомпилировать его как поле/метод объекта, указанного в with. Если нет - тогда будет искать другие процедуры/функции/методы. Одно с красивых использований with, это такой код with TObject.Create() do try // делаем что то finally free; // освобождаем. end;
    – KoVadim
    11 янв 2013 в 11:16

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.