цикл (repeat) картинок

[Anton931]

Вызываю картинку из ресурса, они все пронумерованы как вызвать их поочереде через repeate? делаю следующим способом но не знаю что писать после until и вообще правильно ли я делаю? Я знаю что можно путем вызывать подставляя номер картинки, но он мне требуется через repeat.

var
  ResBmp: TBitmap;
  kaptinka: PChar;
          begin
            repeat
              st:=copy(kaptinka_,1,4);
              if st='kapt' then
                begin
                  _TmplStr:=st;
                  ResBmp.LoadFromResourceName(HInstance, kaptinka);
		//.....
                end;
            until ;
          end;

Прошу не ругаться я только учусь)

[саша40]

Сколько картинок, ты знаешь? Если да, то меняй свою переменную(правильно не kaptinka, а picture. Учи заодно английский!) в цикле.
Если правильно понял то, это так:

var
k: integer;
ResBmp: TBitmap; 
picture: string;
begin
ResBmp:= TBitmap.Create(Form1);
k:=1;
picture:='pict1';
repeat 
ResBmp.LoadFromResource(HInstance,picture);
Delete(picture,Length(picture),1);
picture:=picture + inttostr(k);
until k< ..(здесь число картинок)..;

... 
FreeAndNil(ResBmp);
end;

[Anton931]

да мне известно всего 30 картинок, все прономерованы, а возможно без использования inttostr() ?

[саша40]

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

да мне известно всего 30 картинок, все прономерованы, а возможно без использования inttostr() ?

Объедени название картинок в массив строк. Делается это так:

Var M: array [1..30] of String = ['картинка1',картинка2','картинка3',...,'картинкаN'];

А дальше вместо переменной дай в функцию элемент из массива.

[Anton931]

var
k: integer;
ResBmp: TBitmap; 
picture: string;
M: array [1..30] of String = ['pict_1', 'pict_2', 'pict_3', 'pict_4', 'pict_5', 'pict_6', 'pict_7', 'pict_8', 'pict_9', 'pict_10', 'pict_11', 'pict_12', 'pict_13', 'pict_14', 'pict_15', 'pict_16', 'pict_17', 'pict_18', 'pict_19', 'pict_20', 'pict_21', 'pict_22', 'pict_23', 'pict_24', 'pict_25', 'pict_26', 'pict_27', 'pict_28', 'pict_29', 'pict_30'];
begin
ResBmp:= TBitmap.Create(Form1);
repeat 
ResBmp.LoadFromResource(HInstance,M);
....
until k<30;
... 
FreeAndNil(ResBmp);
end;

выдает ошибку в массиве [dcc32 Error] Project1.dpr(108): E2001 Ordinal type required что не так?

[kropotkina-alice]

Что это такое

LoadFromResource(HInstance,M);

За один раз вызываешь весь массив сразу???
Так не пойдёт...
Вызывать надо по номеру элемента массива - М[К]...
Надо определить начальное значение К...
Надо его наращивать...
В общем, надо думать... Хотя бы чуть-чуть...

[Anton931]

ок, сделал так:

var
k: integer;
ResBmp: TBitmap; 
picture: string;
M: array [1..30] of String = ['pict_1', 'pict_2', 'pict_3', 'pict_4', 'pict_5', 'pict_6', 'pict_7', 'pict_8', 'pict_9', 'pict_10', 'pict_11', 'pict_12', 'pict_13', 'pict_14', 'pict_15', 'pict_16', 'pict_17', 'pict_18', 'pict_19', 'pict_20', 'pict_21', 'pict_22', 'pict_23', 'pict_24', 'pict_25', 'pict_26', 'pict_27', 'pict_28', 'pict_29', 'pict_30'];
begin
ResBmp:= TBitmap.Create(Form1);
repeat 
ResBmp.LoadFromResource(HInstance,M[k]);
....
ink(k);
until k<30;
... 
FreeAndNil(ResBmp);
end;

но все равно выдает ошибку в масиве [dcc32 Error] Project1.dpr(298): E2195 Cannot initialize local variables уже даже массив перенес в глобальные переменные, что за косяк не понимаю

[kropotkina-alice]

Сообщение от kropotkina-alice

Надо определить начальное значение К...

И где? Не вижу...
Дальше...

M: array [1..30] of String = ['pict_1', 'pict_2', 'pict_3', 'pict_4', 'pict_5', 'pict_6', 'pict_7', 'pict_8', 'pict_9', 'pict_10', 'pict_11', 'pict_12', 'pict_13', 'pict_14', 
'pict_15', 'pict_16', 'pict_17', 'pict_18', 'pict_19', 'pict_20', 'pict_21', 'pict_22', 'pict_23', 'pict_24', 'pict_25', 'pict_26', 'pict_27', 'pict_28', 'pict_29', 'pict_30'];

Так не пойдёт. Отдельно объявляем, а потом присваиваем...

...
M: array [1..30] of String;
begin
for k:=1 to 30 do
M[k]:='pict_'+IntToStr(k);
k:=0;
...

З.Ы.
И ещё. Поимейте уважение к нам и перестаньте вставлять тут строки, которые приходится просматривать, используя прокрутку по горизонтали...
Это я о чём? А обратите внимание на зелёный шрифт... Так трудно разбить и перенести строку?

[Anton931]

ты не понял, он скомпилировать не может на VAR запинается, ты про К говоришь!

[ДралсяСошибками]

String = ('pict_1',

скобки круглые вроде должны быть и так только глобально