Приклад
Обробник події OnFind повинен знайти зразок в тексті і показати його користувачеві. Хай, наприклад, компонент Memo1 містить відшукуваний фрагмент, і пошук йде з урахуванням регістра. Тоді обробник може мати такий вигляд:
procedure TForm1.FindDialog1Find (Sender: TObject);
var
SelPos:Integer;
begin
with TFindDialog (Sender) do
begin
// Шукаємо фрагмент в тексті
SelPos:=Pos(FindText, Mtmo1.Lines.Text);
if SelPos>0 then
begin // Фрагмент знайдений - виділяємо його
Memo1.SelStart:=SelPos-1;
Memo1.SelLength:=Length(FindText);
end else
ShowMessage('Текст"' + FindText + '"не найден');
end; end;
Читайте також:
IV. ПРИКЛАДИ ТИПОВИХ ІНДИВІДУАЛЬНИХ ЗАВДАНЬ ТА ПОРЯДОК ЇХ РОЗВ’ЯЗАННЯ Абсолютні синоніми (наприклад, власне мовні й запозичені) в одному тексті ділового стилю вживати не рекомендується. Алгоритм однофакторного дисперсійного аналізу за Фішером. Приклад Аналіз структури та динаміки необоротних активів за даними Ф№1 «Баланс» (на прикладі ВАТ «Горизонт») Базові та прикладні класифікації В Додатку до диплома (приклад) В процесі читання виділіть маркером або підкресліть приклади дії променів на живі організми. В чому полягає явище тунелювання через потенціальний бар’єр, наведіть приклади. Вивчення прикладу СК: моніторинг дотримання положень КПК ООН з боку СК Визначення і приклади Виокремте з обраної програми концептуальну ідею, мету, наведіть 1-2 приклади форм і методів її реалізації. Вільсон О. Г. Охорона праці в галузі (на прикладі будівництва). Навчальний посібник. – К.: «Основа». 2006. – 204 с.
Не знайшли потрібну інформацію? Скористайтесь пошуком google: