[Apophis]

rкак присвоить значения тимага.пиктурес элементу массива типа тбитмап что-то типа
map[1,1]:=Image11.Picture.LoadFromFile; (так не верно)
чтобы задавать картинку имагу через элемент, вроде такова
map[1,1]:=('C:\123.bmp');

[<<D>>]

image11.Picture.LoadFromFile(filename) не является функцией, т.е. присвоить не можно.

map[1]:=TBitmap.Create;
image11.Picture.LoadFromFile(filename);
map[1].Assign(image11.Picture.Bitmap);

[<<D>>]

... и еще так:

function ReadBitmapFromFile(FileName:String):TBitmap;
var bmp:TBitmap;
begin
bmp:=TBitmap.Create;
bmp.LoadFromFile(FileName);
Form1.Image1.Picture.LoadFromFile(FileName);;
Result.Assign(bmp);
end;


......
if OpenDialog1.Execute then
map[1].Assign(ReadBitmapFromFile(OpenDialog1.FileName));

[Apophis]

Сообщение от <<D>>

... и еще так:

function ReadBitmapFromFile(FileName:String):TBitmap;
var bmp:TBitmap;
begin
bmp:=TBitmap.Create;
bmp.LoadFromFile(FileName);
Form1.Image1.Picture.LoadFromFile(FileName);;
Result.Assign(bmp);
end;


......
if OpenDialog1.Execute then
map[1].Assign(ReadBitmapFromFile(OpenDialog1.FileName));

врорде пашет, тока перед запуском не в тему выскакивает табличка
Сannot assign a TBitmap to a TApplication, но работает правельно
и как пмвязать в этой функции Image1 к map[1] ?

[<<D>>]

Неужели ты забыл создать TBitmap перед тем как применять к нему изображение.

function ReadBitmapFromFile(FileName:String):TBitmap;
var bmp:TBitmap;
begin
bmp:=TBitmap.Create;
bmp.LoadFromFile(FileName);
Form1.Image1.Picture.LoadFromFile(FileName);;
Result.Assign(bmp);
end;


......

map[1]:=TBitmap.Create;
if OpenDialog1.Execute then
map[1].Assign(ReadBitmapFromFile(OpenDialog1.FileName));

[Apophis]

согласно функции строки
bmp:=TBitmap.Create;
bmp.LoadFromFile(FileName);
вообще ничё не делают, обявил bmp тип и всё, непользуемс переменной то...

и немного непонял, я хочу в этой функции забить некое еол-во имагов
Form1.Image1.Picture.LoadFromFile(FileName);
Form1.Image2.Picture.LoadFromFile(FileName);
и т.д

и если я напишу
map[1].Assign(ReadBitmapFromFile('с:/123.bmp'));
он же припрёт этот рисунок всем имаг а не только image1

[<<D>>]

procedure openBMP(BMP:TBitmap;int:integer);
begin
case int of
1:Form1.Image1.Picture.Bitmap:=BMP;
2:Form1.Image2.Picture.Bitmap:=BMP;
3:Form1.Image3.Picture.Bitmap:=BMP;
//...........
end;
end;

function ReadBitmapFromFile(FileName:String;int:Integer):TB itmap;
begin
Result:=TBitmap.create;
Result.LoadFromFile(FileName);
openBMP(Result,int);
end;


....................
map[1]:=TBitmap.Create;
if OpenDialog1.Execute then
map[1].Assign(ReadBitmapFromFile(OpenDialog1.FileName,1) );

[Apophis]

спасибо