Атомы : Запись, чтение и удаление информации (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.

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

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

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

19.04.2024 12:49:42/0.036020994186401/2