Delphi World - Пример работы с атомами
Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Пример работы с атомами

Автор: Vit
WEB-сайт: http://forum.vingrad.ru

Сохранить строку в памяти?

Например через атомы:

К счастью количество атомов ограничено 0xFFFF, так что простые функции перебора работают достаточно быстро. Вот пример как сохранять и читать значение через атомы:

const
  UniqueSignature = 'GI7324hjbHGHJKdhgn90jshUH*hjsjshjdj';

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(UniqueSignature)) <> nil then
      GlobalDeleteAtom(i);
  end;
  FreeMem(p);
end;

procedure WriteAtom(Str: string);
begin
  CleanAtoms;
  GlobalAddAtom(PChar(UniqueSignature + Str));
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(UniqueSignature)) <> nil then
      break;
  end;
  result := StrPas(p + length(UniqueSignature));
  FreeMem(p);
end;

procedure TReadFromAtom.Button1Click(Sender: TObject);
begin
  WriteAtom(Edit1.text);
end;

procedure TReadFromAtom.Button2Click(Sender: TObject);
begin
  Showmessage(ReadAtom);
end;

Примечание: константа "UniqueSignature" должна быть достаточно длинной, чтобы однозначно идентифицировать атом, в тоже время длина хранимой строки вместе с UniqueSignature не должна превышать 255 символов. Данная конструкция может хранить только 1 значение. Для хранения нескольких значений надо назначить несколько разных UniqueSignature и использовать сходные процедуры.

Проект Delphi World © Выпуск 2002 - 2017
Автор проекта: Эксклюзивные курсы программирования