Delphi și TMemo. Exemplu de lucru cu câmpuri de intrare multi-linie în Delphi
Ai căutat pe Delphi și TMemo. Exemplu de lucru cu câmpuri de intrare multi-linie în Delphi și special pentru dvs. am pregătit această lecție Delphi. Pentru fiecare lecție, încercăm să furnizăm codul sursă Delphi, deci la sfârșitul articolului, Delphi și TMemo. Exemplu de lucru cu câmpuri de intrare multi-linie în Delphi puteți vedea un exemplu de Delphi sau Delphi, care vă va permite să studiați Delphi și TMemo. Un exemplu de lucru cu câmpurile de intrare multi-linie în Delphi este mai detaliat.
Aflați programarea online la www.DelphiSchool.3dn.ru și aflați elementele de bază ale programării. Învățarea programării în DelphiSchool este programarea pentru începători și programatori experimentați.
Figura. Forma și componenta TMemo pe aceasta
Acum, să creăm un handler de evenimente OnClick pentru butonul "Ștergeți" și să scrieți următorul cod:
200? '200px': '' + (acest.scrollHeight + 5) + 'px'); "> procedura TForm1.CleanButtonClick (Expeditor: TObject # 41 ;;
începe
MyMemo.Lines.Clear;
se încheie;
200? '200px': '' + (this.scrollHeight + 5) + 'px'); "> procedura TForm1.FormShow (expeditor: TObject # 41 ;;
începe
dacă FileExists ("Memo.txt" # 41; atunci
MyMemo.Lines.LoadFromFile ('Memo.txt' # 41 ;;
se încheie;
Să examinăm acest cod. În prima linie, verificăm dacă memo.txt există și dacă există, numim metoda LoadFromFile a obiectului Lines cu care vom încărca textul din Memo.txt în MyMemo.
Acum creați un handler de evenimente OnClose pentru formular și scrieți următorul cod:
200 "200px": '' + (acest.scrollHeight + 5) + 'px'); "> procedura TForm1.FormClose (expeditor: TObject; var Acțiune: TCloseAction # 41 ;;
începe
MyMemo.Lines.SaveToFile ('Memo.txt' # 41 ;;
se încheie;
Acest lucru va însemna că atunci când închideți programul, tot ce este scris în Memo va fi salvat în fișierul Memo.txt
Ei bine, și în cele din urmă să înțelegem, cum să adăugați, ștergeți și să modificați programele în Memo. Pentru a face acest lucru, utilizați proprietatea Strings din proprietatea Lines. De exemplu, dacă vrem să accesăm linia zero, atunci vom scrie MyMemo.Lines.Strings [0], prima linie este MyMemo.Lines.Strings [1], etc.
Să scriem un handler de evenimente pentru evenimentul OnClick cu următorul cod pentru butonul "Adăugați":
200? '200px': '' + (this.scrollHeight + 5) + 'px'); "> procedura TForm1.AddButtonClick (Expeditor: TObject # 41 ;;
începe
MyMemo.Lines.Add ('Această linie am adăugat acum' # 41 ;;
se încheie;
Iar pentru butonul "Șterge" vom scrie:
200? '200px': '' + (this.scrollHeight + 5) + 'px'); "> procedura TForm1.DelButtonClick (Expeditor: TObject # 41 ;;
începe
dacă MyMemo.Lines.Count <> 0 atunci
MyMemo.Lines.Delete (MyMemo.CaretPos.Y # 41 ;;
se încheie;
În acest exemplu, verificăm câte rânduri din componenta Memo, utilizând proprietatea Lines.Count. Dacă este zero, atunci există linii și putem șterge linia curentă. Pentru a șterge, utilizați metoda de ștergere a obiectului Linii, la care trebuie doar să transferați numărul de linie care urmează să fie șters. Pentru a afla, folosim proprietatea CaretPos. care indică poziția curentă a cursorului.
În cele din urmă, scrieți un handler de evenimente OnClick pentru butonul "Editați" și scrieți codul:
200? '200px': '' + (acest.scrollHeight + 5) + 'px'); "> procedura TForm1.ChangeButtonClick (Expeditor: TObject # 41 ;;
începe
MyMemo.Lines.Strings # 91; MyMemo.CaretPos.Y]: = 'Lesson Delphi Memo';
MyMemo.Lines.Strings # 91; 0]: = 'Am schimbat textul';
se încheie;
În prima linie de cod, învățăm poziția cursorului și schimbăm această linie în "Delphi Memo Lesson", iar în al doilea rând de cod, înlocuim prima linie a MyMemo cu "Am schimbat textul".
Figura. Exemplu de Delphi și TMemo