7 1

Wydział Transportu P.W.

Laboratorium z informatyki sem.il / ćw.7

Zadanie: Utwórz aplikację umożliwiającą tworzenie i edytowanie listy w siatce tekstowej oraz

•    wybieranie tekstu najstarszego według porządku leksykograficznego lub najdłuższego

•    wyliczanie długości wpisanych tekstów

•    dokonywanie innych operacji przekształcających listę tekstową.

I. Tworzenie formy aplikacji

1.    Otwórz nowy projekt Delphi. Nadaj formie tytuł Operacje na tekstach i zapisz projekt w folderze D:\Bz.

2.    Ustaw na środku formy komponent RadioGroup (Ml z zakładki Standard, a następnie:

•    ustaw jego właściwość Caption na tekst zgodny z zamieszczonym poniżej rysunkiem

•    wygeneruj 7 przycisków opcji dwukrotnie klikając w polu obok właściwości Items, a następnie w kolejnych wierszach okna String List Editor wpisz nazwy poszczególnych opcji jak na rysunku.

3.    Wstaw po lewej stronie formy komponent StringGrid z zakładki Additional. W oknie Object Inspector ustaw odpowiednio jego właściwości:

>    DefaultColWidth oraz Width na 180 (szerokość kolumny i szerokość siatki)

>    DefaultRowHeight na 20, Height na 256 (wysokość wiersza i wysokość siatki)

>    Fi\edCols i FixedRows na 0 (liczba stale widocznych kolumn i wierszy nagłówków, bez możliwości edycji)

>    ColCount i RowCount odpowiednio na 1 i 12 (liczba widocznych kolumn i wierszy)

>    ScrollBars na ssNone (usunięcie pasków przewijania )

>    Options - dwukrotnie kliknij właściwość, a następnie ustaw opcje goEditing oraz goAlwaysShowEditor na True (umożliwi to edycję w siatce komponentu).

4.    Wstaw na formę komponent typu TListBox z zakładki Standard. Nadaj mu odpowiednie rozmiary. Wybierz dla właściwości Style wartość lbOwnerDrawFixed i ustaw właściwość ItemHeight na 21.

5.    Wstaw na formę komponent typu TCheckBox z zakładki Standard z tytułem Sortuj oraz dodaj przyciski i etykiety, tak by forma miała wygląd zgodny z poniższym rysunkiem:

6. Zapisz wprowadzone zmiany i obejrzyj formę uruchomionej aplikacji.

II. Wpisywanie tekstów do siatki

1.    Utwórz procedurę obsługi kliknięcia przycisku Wpisz, która wpisuje nazwy miesięcy do siatki tekstowej. Zadeklaruj zmienną lokalną i typu całkowitego oraz wypełnij treść procedury instrukcją:

for i:=l to StringGridl.RowCount do

StringGridl.Cells[0,i — 1]:= LongMonthNames[i];

2.    Utwórz procedurę obsługi kliknięcia dla przycisku Kasuj, zadeklaruj w niej całkowitą zmienną i oraz wpisz treść;

with StringGridl do for i:=0 to RowCount-1 do Cells [0,i]: = '';

3.    Zapisz wprowadzone zmiany i sprawdź działanie przycisków.

1