6 (1596)

104 Aplikacje w Delphi. Przykłady

Rozwiązanie

Treść procedury obsługi przycisku wykonującego kasowanie zamieszczono poniżej:

//kasowanie z pola Memol wszystkich linii nie zawierających cyfr procedurę TForml.Button2Click(Sender: TObject); var i:i nteger: j:single; begin i :=0: repeat try

j:=StrToFloat(Memol.Lines[i]); i:-i+l; except

Memol.Lines.Delete(i); end:

until i=Memol.Lines.Count:

Memol.SetFocus; //kursor w polu Memol end;

Ze względu na wykorzystanie w tej procedurze mechanizmu obsługi wyjątków działanie procedury można sprawdzić poza środowiskiem Delphi lub po wyłączeniu opcji menu Tools/Options/Debugger Options/General/Integrated debugging.

Przykład 8.8.

Napisz procedurę, która wykasuje wszystkie linie z pola TMemol, zawierające tylko literę a. Rozwiązanie

Treść procedury obsługi przycisku wykonującego kasowanie zamieszczono poniżej:

//kasowanie z pola Memol wszystkich linii zawierających literę a procedurę TForml.ButtonlClick(Sender: TObject): var i:integer; begin i: =0; repeat

if Memol.Lines[i]='a' and (Memol.Lines.Count>0) then Memol.Lines.Delete(i) else i:=i+l:

until i=Memol.Lines.Count: //liczba linii zmniejsza się po każdym kasowaniu Memol.SetFocus; //kursor w polu Memol end;