Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.11.28;
Скачать: [xml.tar.bz2];

Вниз

Модули   Найти похожие ветки 

 
BiS   (2004-11-15 22:43) [0]

не могу разобратся почему возникает ошибка при выводе бмп, иницинируемого и обработаного(созданого) в другом модуле

unit Unit1;
uses ...,unit2;
...
procedure ...
begin
FileName:="...";
Pr1(FN);
image2.picture.Assign(bm);//здесь по ходу дела и возникает ошибка.
end;

unit unit2;
interface
uses Windows,Graphics, SysUtils;
procedure Rr1(FSN:string);
var
bm:TBitMap;

implementation

procedure Rr1(FSN:string);
begin
 bm1:=TBitMap.Create;
 bm1.LoadFromFile(FSN);
end;


 
ninja ©   (2004-11-15 22:58) [1]

а делфи ругается?
с чего ты взял, что в image2.picture.Assign(bm) ошибка?


 
novice_man ©   (2004-11-15 23:01) [2]

Инициализировал  
bm1:=TBitMap.Create;
bm1.LoadFromFile(FSN);

Обратился:

mage2.picture.Assign(bm)

bm не есть равно bm1!!


 
BiS   (2004-11-15 23:11) [3]

bm и bm1 одно и тоже, это прросто пример, в проге все правильно.
А ругается оно, просто возникает ошибка при существовании команды image2.picture.Assign(bm).


 
novice_man ©   (2004-11-15 23:33) [4]

Дословно как ругается Дельфи??


 
novice_man ©   (2004-11-15 23:36) [5]

Удалено модератором


 
novice_man ©   (2004-11-15 23:36) [6]

Удалено модератором


 
BiS   (2004-11-16 00:01) [7]

просто возникает сообщение про какую-то там ерор, не показывая строку в которой произошла ошибка, сейчас точно сказать не могу про ошибку, така делфа  у меня на другой винде стоит...


 
Anatoly Podgoretsky ©   (2004-11-16 00:18) [8]

Слишком много точек, задача для телепатов, еще и сообшение скрываешь.



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.11.28;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.036 c
8-1093949562
Anderson
2004-08-31 14:52
2004.11.28
Растягивание изображения


3-1099332069
MMN
2004-11-01 21:01
2004.11.28
Инкрементирование поля


3-1099174955
Field
2004-10-31 02:22
2004.11.28
Помогите с подключением базы данных!!!!!!!!


14-1100067128
Kerk
2004-11-10 09:12
2004.11.28
И еще раз про образование.


4-1098156661
Боян Георгиев
2004-10-19 07:31
2004.11.28
Как узнать если процес запущен





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский