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

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

 

Code:

const UniqueSignature='GI7324hjbHGHJKdhgn90jshUH*hjsjshjdj';

{©Drkb v.3, ®Vit (Vitaly Nevzorov) - Этот адрес электронной почты защищён от спам-ботов. У вас должен быть включен JavaScript для просмотра.}

 

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

Добавить комментарий

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!


Защитный код
Обновить