Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

Атомы : Запись, чтение и удаление информации (ReadAtom, CleanAtoms)

Delphi , Синтаксис , Память и Указатели

Code:

{Act: 0 - Очистка атомов, 1 - чтение атомов, 2 - запись атомов}
{Uniq - Уникальный идентификатор}
{AtomNfo - Информация для записи}
Function AtomDo(Act:integer;Uniq,AtomNfo:string);
 
Procedure CleanAtoms;
var P:PChar;
i:Word;
begin
GetMem(p, 256);
   For i:=0 to $FFFF do
   begin
     GlobalGetAtomName(i, p, 255);
    if StrPos(p, PChar(Uniq))<>nil then GlobalDeleteAtom(i);
   end;
  FreeMem(p);
end;
 
Function ReadAtom:string;
var P:PChar;
i:Word;
begin
   GetMem(p, 256);
   For i:=0 to $FFFF do
 begin
   GlobalGetAtomName(i, p, 255);
   if StrPos(p, PChar(Uniq))<>nil then break;
 end;
     result:=StrPas(p+length(Uniq));
     FreeMem(p);
end;
 
begin
 
case Act of
0 : CleanAtoms;
1 : Result:=ReadAtom;
2 : begin
     CleanAtoms;
     GlobalAddAtom(PChar(Uniq+AtomNfo));
     end;
end;
 

 Автор: Radmin

Взято с Vingrad.ru http://forum.vingrad.ru

Статья Атомы : Запись, чтение и удаление информации (ReadAtom, CleanAtoms) раздела Синтаксис Память и Указатели может быть полезна для разработчиков на Delphi и FreePascal.


Комментарии и вопросы


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



:: Главная :: Память и Указатели ::


реклама

::


©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Rambler's Top100
26.09.2017 15:33:48/0.049995899200439/2