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

Вниз

Сообщение и строка   Найти похожие ветки 

 
TestUser   (2004-02-27 15:25) [0]

Мне необходимо передать в качестве параметра в событие строку (String) я делаю так, все работает на я бы хотел услышать насколько это корректно

procedure MyProc();
var
s: String;
begin
s := "My_String";
Perform(My_MSG, Integer(s), 0)
end;

procedure MyMSG(var Message : TMessage);
var
s: String;
begin
s := String(Message.WParam);
некие действия с s
end;


 
TUser   (2004-02-27 15:26) [1]

Вроде, так обычно и делают.


 
Тимохов   (2004-02-27 15:27) [2]

Если делать через perform, то корректно.


 
TestUser   (2004-02-27 15:29) [3]

2 Тимохов
а через что не корректно


 
VLAD-MAL   (2004-02-27 16:07) [4]

Ни хрена не корректно. Ты передаешь указатель на локальный параметр, который к моменту обработки события вовсе не обязан существовать.
Корректно, это когда ты создаешь объект, передаешь ссылку на него, в обработчике юзаешь его и ТАМ ЖЕ удаляешь его.


 
Тимохов   (2004-02-27 16:14) [5]


> VLAD-MAL (27.02.04 16:07) [4]

код perform посмотрите


 
Тимохов   (2004-02-27 16:15) [6]


> TestUser (27.02.04 15:29) [3]

через postmessage не корректно.


 
VLAD-MAL   (2004-02-27 16:15) [7]

Пардон, читал вопрос невнимательно...



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

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

Наверх





Память: 0.45 MB
Время: 0.016 c
6-43730
Cooler
2004-01-09 15:38
2004.03.14
ClientSocket, ServerSocket


4-43972
Unknown
2004-01-07 09:17
2004.03.14
Память, занятая процессом


14-43832
Gero
2004-02-21 23:05
2004.03.14
Виснут DOS-программы


14-43829
RealRascal
2004-02-22 08:51
2004.03.14
Кто читал?


14-43884
Prooksius
2004-02-20 16:43
2004.03.14
Win XP (SP1) - Не работает Disk Defragmenter





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский