Создание многопоточных приложений. Копытин А.В - 13 стр.

                                         13
П ервы й, и самы й про стой, со стоитв испо льзо вании ло кальны х переменны х
(в стеке). П о ско льку каж ды й по ток по лучаетсо бственны й стек, то при вы по л-
нении о дно й про цедуры или функции о н будетиметьи со бственную ко пию ло -
кальны х переменны х . В торо й метод заклю чается в со х ранении ло кально й ин-
фо рмации во бъ екте по томкаклассаTThread. И , нако нец, мо ж но такж е испо ль-
зо вать зарезервиро ванно е сло во Delphi threadvar, чтобы во спо льзо ваться пре-
имущ ествами х ранения ло кально й инфо рмации по токанауро вне о перацио нно й
системы .

Ис п ользован и е об ъект аTThread для хран ен и я дан н ы х
   Е сли сравнивать по следние два варианта х ранения данны х по токо в, то, бес-
спо рно , следуето стано вить вы бо р на спо со бе х ранения данны х в о бъ екте по -
томка класса TThread, по ско льку о н про щ е и эффективнее метода с испо льзо -
ванием зарезервиро ванно го сло ва threadvar (речь о нем по йдетпо зж е). А для
о бъ явления ло кальны х данны х по тока бо лее предпо чтительны м спо со бо м до с-
таточно до бавитьих во пределениепо томкаклассаTThread:
type
  TMyThread = class(TThread)
  private
    FLocallnt: Integer;
    FLocalStr: String;
  end;

threadvar: хран ен и е локальн ы х дан н ы х п от оков с п ом о-
щ ьюи н т ерфейс аAPI
   В ы ш е упо минало сь о том, что каж до му по току для х ранения ло кальны х пе-
ременны х предо ставляется его со бственны й стек, в то время как гло бальны е
данны е до лж ны со вместно испо льзо ваться всеми по токами внутри прило ж ения.
Н апример, у вас есть про ц едура, ко торая устанавливаетили о тображ аетзначе-
ние гло бально й переменно й, причем о на по стро ена так, что при передаче ей
текстово й стро ки про исх о дитустано вка, а при передаче пустой стро ки— о то-
браж ение этой гло бально й переменно й. Т акая про цедура мо ж етиметь следую -
щ ий вид:
var GlobalStr: String;
procedure SetShowStr(const S: String);
begin
  if S = " then
  MessageBox(0, PChar(GlobalStr), 'The string is...', MB_0K) else
  GlobalStr := S;
end;
   Е сли эта про цедура вы зы вается в ко нтексте только о дно го по тока, никаких
про блем не во зникнет. О дин раз о набудетвы званадля устано вки значения пе-
ременно й GlobalStr, авторо й— для о тображ ения этого значения. Д авайте раз-
беремся, что ж е про изо йдет, если два или бо льш е по токо в смо гутвы звать эту
про цедуру впро изво льны й мо ментвремени. В этом случае во змо ж наситуац ия,
ко гдао дин по ток вы зо ветэтупро ц едуру для устано вки стро ки, по сле чего про -