4 (1945)

102 Aplikacje w Delphi. Przykłady

begin

Memol.ClearSelection; end:

Instrukcje działają po uprzednim zaznaczeniu tekstu w sposób zgodny ze standardem Windows.

Te same czynności można wykonać korzystając ze standardowego menu podręcznego dla komponentu TMemo, pojawiającego się po zaznaczeniu tekstu i kliknięciu prawym klawiszem myszy — rysunek 8.2.

Rysunek 8.2.

Standardowe menu podręczne dla komponentu TMemo

Czytanie i zapisywanie tekstu do pliku

Zawartość pola TMemo — linie tekstu — możemy w prosty sposób zapisać do pliku dyskowego i odczytać z pliku, korzystając z metod obiektu TStri ngs: SaveToFi 1 e i LoadFromFile.

Przykład 8.5.

Wpisz dane do pliku za pomocą Inspektora Obiektów (właściwość Lines). Następnie wpisz instrukcje, które zapiszą dane do pliku tekstowego, wykasują zawartość pola Memo i ponownie wczytają z pliku zapisane dane.

Rozwiązanie

Wstaw trzy przyciski. W procedurach obsługi zdarzenia OnClick dla tych przycisków wpisz instrukcje, jak w procedurach poniżej:

//zapisanie zawartości pola TMemo do pliku procedurę TForml.Button8Click(Sender: TObject): begin

Memol.Lines.SaveToFile('Memo.txt'): end;

//kasowanie zawartości pola TMemo

procedurę TForml.Button2Click(Sender: TObject);

begin

Memol.Cl ear; end;

//odczyt pliku do pola TMemo