несоответствие типов

[eagle_ua]

хочу создавать динамический масив объектов типа TImage и при этом
что-бы каждому созданому объекту присваивалось своё имя (image0,image1,...),

но ткт то и возникает проблема : матерится setlenght, пишет что несоответствие

типов. Как это можно обойти?

[CODE]
var i:integer;

image:array of TImage;

number:integer;

:

procedure ......

:

:

:

setlength(image,number);

for i:=0 to number-1 do

begin
[\CODE]

[ZaCo]

сам не пробовал. но по-моему у setlength второй параметр число типа byte(ибо <=255!!!, что не очень удобно)

[RevenAnt]

по-моему у setlength второй параметр число типа byte
в хэлпе - procedure SetLength(var S; NewLength: Integer);
так шо там чики пуки .... а так не вижу в чём проблема ... вроде всё просто ....


SetLength(a,100);
for i:=1 to 100 do
begin
a[i]:=TImage.Create(Form1);
with a[i] do
begin
Parent:=Form1;
Name:='my_image'+inttostr(i);
Left:=i+20;
Top:=i+50;
Width:=100;
Height:=20;
Canvas.Pixels[0,0]:=clblack;
end;
end;

у мя работает .. только патом надо их как создал - так и уничтожить ... а то ругацца будет =))

[eagle_ua]

Та вроде бы всё просто только вот a[i] должно быть TImage а при таких раскладах матерится setlemght мол несоответствие типов

[RevenAnt]

var a:array of TImage;
i:integer;
(то что было до того шо я писал выше)
всё работает ... глюк ведать в другом месте ... опиши в чём проблема по полней (сорц,еррор)....
потомучто массив 1. создаёться 2. динамический 3. и имена ставяться ............

[ZaCo]

2RevenAnt
в хэлпе -
Цитата:
procedure SetLength(var S; NewLength: Integer);

я имел ввиду что NewLength<=255 просто. возможно там задавалась в каком то месте длинна массива больше чем 256

[RevenAnt]

NewLength: Integer
Integer –2147483648..2147483647 signed 32-bit
пробовал созадть и пятсот и тыщу ТИмэйдж ... работает .... только не получилось обратиться как к "my_image1", но куда проще и удобней (имхо) обратиться как "a[1]" =)

[eagle_ua]

всё равно матерится на setlength
пишетIncompatible types
ведь a:timage а 100:integer;
чё можно сделать?

[FRAGNATIC]

ведь a:timage а 100:integer;
чё можно сделать?
да ты код свой покажи
SetLength ваще по барабану какого типа элментов у тебя масив этой фе надо тока переадать масив и новую длинну!
SetLength(a,100); - правильно а то что ты написал типа "а ведь a:timage а 100:integer;" - лол =)
SetLength(a,100);
for i:=1 to 100 do
begin
a[i]:=TImage.Create(Form1);
тут тока надо начинать не с 1 а с 0 тк элементы нумеруются с нуля при таком раскладе )

[RevenAnt]

кстате ;)
проверь строчку у себя ДО setlength =))
ведь дэльфи как и паскаль после ошибки ставит курсор на следующую строчку (символ) ЗА ошибкой :) пример тому точка с запятой, пропускаеш а оно на следующую пишет ... ну и в том духе .... авось .......