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

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

Code:

const UniqueSignature='GI7324hjbHGHJKdhgn90jshUH*hjsjshjdj';

{©Drkb v.3(2007): www.drkb.ru,

®Vit (Vitaly Nevzorov) - nevzorov@yahoo.com}

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 и использовать сходные процедуры.