Search in crearea de Delfi - programe source - Catalog de fisiere - grup de tineri de programatori

ora Dobrov zilei
ora din zi Dobrov cu tine, Anton site-ul (Krash) administrator pro-group.3dn.ru
Saychas vom începe să tutoriale.

Astăzi vom face o căutare cu Delphi 7
Butonul potebuetsya pe și mai multe și mai multe componente care nu avem nevoie.

Noi ponadobyatsya 3 componente.

Memo, Edit, Button toate aceste componente pot fi găsite în fila Standard.
Deci, începe să scrie programe.

a crea handler eveniment onClick și scrie acolo sleduyuschik cod.

var // Declararea variabilelor
Cauta: string; // Șirul
i: integer; // Contor pentru ciclul
începe
găsi: = Edit1.Text; // Scrierea pentru a găsi text din Editare
Pentru i: = 0 până la Memo1.Lines.Count-1 do // Start bucla șir de căutare
Dacă Pos (FIND, Memo1.Lines.Text)<>0
apoi
începe
Memo1.SetFocus ();
Memo1.SelStart: = Pos (FIND, Memo1.Lines.Text) -1;
Memo1.SelLength: = Lungime (FIND);
________________________________________________________

ca urmare a codului ar trebui să fie așa.

Procedura TForm1.Button1Click (Expeditor: TObject);
var // Declararea variabilelor
Cauta: string; // Șirul
i: integer; // Contor pentru ciclul
începe
găsi: = Edit1.Text; // Scrierea pentru a găsi text din Editare
Pentru i: = 0 până la Memo1.Lines.Count-1 do // Start bucla șir de căutare
Dacă Pos (FIND, Memo1.Lines.Text)<>0
apoi
începe
Memo1.SetFocus ();
Memo1.SelStart: = Pos (FIND, Memo1.Lines.Text) -1;
Memo1.SelLength: = Lungime (FIND);
End;
se încheie;

Vă mulțumesc pentru atenție. Nu uitați că pe site-ul nostru are o Programe de ordine pagină
acasă