Зертханалық жұмыс №1 «Delphi интерфейсінің элементтері»



жүктеу 2,2 Mb.
бет100/118
Дата04.01.2022
өлшемі2,2 Mb.
#36255
1   ...   96   97   98   99   100   101   102   103   ...   118
Зертханалы ж мыс №1 «Delphi интерфейсіні элементтері»

    Навигация по данной странице:
  • Begin With
Қадам 19. FindDialog1 құрауышының OnFind оқиға өңдегішін анықтау:

Өңдеуіштің мәтіні

Түсініктеме

var Buff,FT,P : PChar;

BuffLen : Integer;
Көмекші айнымалылардың сипаттамасы.

Begin

With Sender as TfindDialog do begin

Процедураның басында төменде қолданылатын қасиеттер мен әдістер TFindDialog класының объектісі ретінде қарастырылатын Sender (оқиға көзі) объектісіне қатысты екені көрсетіледі.

BuffLen:=Memo1.GetTextLen+1;

GetMem(Buff,BuffLen);

Memo1.GetTextBuf(Buff,BuffLen);


Memo1 – дегі мәтін динамикалық Buff айнымалысына көшіріледі. Ол үшін BuffLen - ге мәтіннің ұзындығы кіргізіледі, Buff айнымалысына жадыда орын бөлінеді және көшіру орындалады.

GetMem(FT,Length(FindText)+1);

StrPCopy(FT,FindText);
Аналогиялық түрде FT динамикалық айнымалысына іздеу жолындағы мәтін көшіріледі.

P:=Buff+Memo1.SelStart+

Memo1.SelLength;
P айнымалысына іздеудің басқы адресі кіргізіледі.

P:=StrPos(P,FT);

P айнымалысына іздеу үлгісіне сай келетін бағыныңқы жолдың адресі кіргізіледі.


жүктеу 2,2 Mb.

Достарыңызбен бөлісу:
1   ...   96   97   98   99   100   101   102   103   ...   118



©g.engime.org 2024
әкімшілігінің қараңыз
    Басты бет
рсетілетін қызмет
халықаралық қаржы
Астана халықаралық
қызмет регламенті
бекіту туралы
туралы ережені
орталығы туралы
субсидиялау мемлекеттік
кеңес туралы
ніндегі кеңес
орталығын басқару
қаржы орталығын
қаржы орталығы
құрамын бекіту
неркәсіптік кешен
міндетті құпия
болуына ерікті
тексерілу мемлекеттік
медициналық тексерілу
құпия медициналық
ерікті анонимді
Бастауыш тәлім
қатысуға жолдамалар
қызметшілері арасындағы
академиялық демалыс
алушыларға академиялық
білім алушыларға
ұйымдарында білім
туралы хабарландыру
конкурс туралы
мемлекеттік қызметшілері
мемлекеттік әкімшілік
органдардың мемлекеттік
мемлекеттік органдардың
барлық мемлекеттік
арналған барлық
орналасуға арналған
лауазымына орналасуға
әкімшілік лауазымына
инфекцияның болуына
жәрдемдесудің белсенді
шараларына қатысуға
саласындағы дайындаушы
ленген қосылған
шегінде бюджетке
салығы шегінде
есептелген қосылған
ұйымдарға есептелген
дайындаушы ұйымдарға
кешен саласындағы
сомасын субсидиялау