5 (1735)

Rozdział 8. ♦ Prosty edytor — komponent TMemo 103

procedurę TForml.Button7Click(Sender: TObject); begi n

Memol.Lines.LoadFromFilei'Memo.txt'); end;

Wyświetlanie informacji o położeniu kursora

Przykład 8.6.

Po kliknięciu przycisku wyświetl na etykiecie współrzędne kursora znajdującego się w polu TMemo.

Rozwiązanie

Wstaw na formularzu komponent TMemo, etykietę i przycisk TBitBtn. W procedurze FormCreate na przycisku umieść napis w trzech wierszach:

//Napis na przycisku w trzech wierszach, procedurę TForml.FormCreateCSender: TObject): begin

BitBtnl.Caption: = 'Wyświetl'+#13+'współrzędne'+#13+'kursora'; end;

Oto treść procedury obsługi kliknięcia przycisku TBitBtn:

//Wyświetlenie współrzędnych kursora procedurę TForml.BitBtnlClick(Sender: TObject); begin

//wyświetlenie współrzędnych kursora

Labell.Caption:= Inttostr(Memol.CaretPos,x)+'.’+Inttostr(Memol.CaretPos.Y); Memol.SetFocus: //ta instrukcja powoduje przeniesienie aktywności z przycisku na //pole Memo, co umożliwi wyświetlenie kursora end;

Automatyczne kasowanie linii niezawierających liczb lub wybranych znaków

Przykład 8.7.

Napisz procedurę, która spowoduje wykasowanie linii nie zawierających liczb.