създаване Търсене в Делфи - програми източник - File Catalog - млада група от програмисти

Dobrov време на деня
Dobrov време на деня с теб, Антон (Краш) администратор pro-group.3dn.ru сайт
Saychas ние започваме да уроци.

Днес ще направите търсене с Delphi 7
бутон potebuetsya на и все повече и повече компоненти които не се нуждаем.

Ние ponadobyatsya 3 компонента.

Memo, редактиране Бутон всички тези компоненти може да се намери в раздела стандарт.
Така че започнете да пишете програми.

създадете OnClick манипулатор събитие и пишат там sleduyuschik код.

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);
________________________________________________________

в резултат на кода трябва да бъде по този начин.

процедура 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);
Край;
приключи;

Благодаря ви за вниманието. Не забравяйте, че на нашия сайт има програми страница поръчка
у дома