Търсене бележка
Само полезни материали
Основен акционер в Alibaba стана най-богатият човек в Китай
статии
Microsoft започна тестване частен офис 16
статии
Експертите са установили, вратички в Windows 8.1 за сигурност
статии
В метрото в Москва ще бъде единна мобилна мрежа
статии
иБей ще приема Bitcoin
статии
Vivitek въведе "училище" проектор D755WTIR
статии
В Twitter е имало бутона "Купи"
статии
"Yandeks.Novosti" вече могат да се видят на iPhone
статии
В този малък урок ще ви покажем как да търсите текст в MEMO компонент. Да отворим Delphi и да създадете нов проект, ние се хвърлят под формата на компонент Edit, Бележка Бутон всички с отметки Стандарт. Добре, давай напред, в манипулатор бутон OnClick предписва следния код:
процедура TForm1.Button1Click (Sender: TObject);
Var // Декларирам променливи
Намери: низ; // Низът
I: цяло число; // Counter за цикъла
започвам
намери: = Edit1.Text; // Write да намерите текст от Edit
Защото: = 0 до Memo1.Lines.Count-1 направя // Започнете търсене низ контур
Ако Поз (FIND, Memo1.Lines.Text)<>0
след това
започвам
Memo1.SetFocus ();
Memo1.SelStart: = Поз (НАМЕРИ, Memo1.Lines.Text) -1;
Memo1.SelLength: = дължина (FIND);
Край;
приключи;
В програмата ще търси в текста на Memo вписано в редактирате и дали тя ще се разпределят. Доста прост и разбираем ..