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




Вниз

Не могу понять ощибку. 


RealGrey   (2002-01-05 16:36) [0]

var Clip: TClipboard;
begin
Clip.SetTextBuf(PChar(LE_String));
end;
Почему-то получается Access violation.



ctapik-net   (2002-01-05 17:04) [1]

напиши так
var Clip: TClipboard;
begin
Clip := TClipboard.Create ;
Clip.SetTextBuf(PChar(LE_String));
Clip.Free ;
end;



MBo   (2002-01-05 18:17) [2]

тебе нужен личный Clipboard?
если нет, используй общий, переменную не объявляй, не забудь
uses ...Clipbrd;

clipboard.astext:=le_string;
или как выше
Clipboard.SetTextBuf(PChar(LE_String));



RealGrey   (2002-01-07 10:11) [3]

Спасибо большое!
Нужен был именно общий. А такое я вижу впервые, наверно мал еще. :)




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




Наверх





Память: 0.71 MB
Время: 0.011 c
3-75533           DS                    2001-12-19 17:35  2002.01.24  
Создание Lookup полей программно


14-75648          Mike_Goblin           2001-11-26 14:29  2002.01.24  
День Варенья у Sir Alex


1-75624           avr555                2002-01-08 16:44  2002.01.24  
IDataObject


7-75693           BoBaH                 2001-10-11 13:20  2002.01.24  
TRegistry


6-75635           Dmitry V. Averuanov   2001-11-02 15:42  2002.01.24  
Мучительный вопрос: