var S: String;
începe
Memo1.Lines [3]: = „a patra linie la rând„;
S: = Memo1.Lines [3];
se încheie;
- Adăugați ()
- Inserare ()
începe
Memo1.Lines.Add ( „Acesta este ultimul șir“);
Memo1.Lines.Insert (. 2 'Această linie va fi al treilea „); // Pe măsură ce trece numărătoarea inversă de la zero!
se încheie;
Delphi Memo are, de asemenea, o metodă pentru a elimina linia:
Memo1.Lines.Delete (i); // Ștergerea unui rând cu indicele i
De reținut numărul de rânduri din componenta conținută în Count proprietate:
Profitând de acest lucru, de exemplu, căutarea unui fragment „Nuzhnyy_Tekst“ în linii pot fi aranjate după cum urmează:
Memo1.Text: = 'Textul anterior + # 13 + # 10 +' Acesta este un rând nou „;
Delphi Memo are proprietăți pentru mutarea cursorului, iar selectarea textului aceeași ca cea a componentei Delphi Editare.
- SelStart
- SelLenght
- SelText
- SelStart proprietate de tip Integer specifică numărul de caractere, după care cursorul va fi (numărate de la începutul întregului text);
- SelLenght tip Integer proprietate specifică numărul de caractere selectate;
- proprietate SelText de tipul String care conține textul selectat.
Pentru a evidenția textul a fost vizibil pe ecran, nebhodimo care componenta are focus intrare. Adică, să mai devreme sau utilizatorul muta cursorul acolo, tasta Tab sau făcând clic pe mouse-ul, sau a fost executat operatorul Memo1.SetFocus.
Rămâne întrebarea cum pentru a determina unde este cursorul pe o linie, iar poziția în șir. Aceste setări sunt conținute în proprietatea CaretPos Delphi componenta Memo care are un tip TPoint, adică punctul - o înregistrare cu coordonatele X și Y:
Memo1.CaretPos.X // poziția cursorului în linia (spre deosebire de SelStart);
Memo1.CaretPos.Y // numărul liniei în care se află cursorul;