Căutare memo
Numai materiale utile
Acționarul principal al Alibaba a devenit cel mai bogat om din China
Articole
Microsoft a început testarea privat Oficiul 16
Articole
Experții au găsit lacune în Windows 8.1 Securitate
Articole
La Moscova metrou va fi o rețea de telefonie mobilă unificată este
Articole
eBay va accepta Bitcoin
Articole
Vivitek a introdus „școală“ proiector D755WTIR
Articole
În Twitter exista un buton „Cumpărați“
Articole
„Yandeks.Novosti“ poate fi acum vizualizate pe iPhone
Articole
In acest mic tutorial vă voi arăta cum să căuta text în componenta MEMO. Să deschidem Delphi și de a crea un nou proiect, vom arunca sub forma de componente Edit, Memo, buton toate cu marcaje Standart. Bine, mergeți mai departe, într-un buton handler OnClick prevede următorul cod:
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;
Programul va căuta în textul Memo a intrat în Edit și în cazul în care se va aloca. Destul de simplu și ușor de înțeles ..