7 (1497)

55

Rozdział 4. ♦ Wprowadzanie danych, formatowanie i wyświetlanie na ekranie

Przykład 4.3.

Odczytaj separator liczb dziesiętnych i inne ustawienia obowiązujące w systemie Windows, po czym wyświetl je na etykiecie w kolejnych wierszach.

Rozwiązanie

Ustawienia systemowe można odczytać za pomocą procedury GetLocalelnfo lub dzięki wykorzystaniu zmiennych systemowych, takich jak np. Dęci mai Separator, Currency ^|—Deci mai s, jak w poniższej procedurze obsługi zdarzenia OnCl i ck dla przycisku TButton.

//odczytanie wartości wybranych zmiennych systemowych

procedurę TForml.ButtonlClick(Sender: TObject); begin

labell.Caption:=DecimalSeparator+#13+ //separator liczb dziesiętnych - lub IntToStr(CurrencyDecimals)+#13+ //liczba miejsc dziesiętnych kwoty pieniężnej DateSeparator+#13+    //separator dni/miesięcy/lat

ShortDateFormat+#13+    //format tzw. krótkiej daty w postaci znakowej

LongDateFormat+#13+    //format tzw. długiej daty w postaci znakowej

// LongMonthNames - to tablica zawierająca pełne nazwy miesięcy // LongDayNames - to tablica zawierająca pełne nazwy dni tygodnia LongMonthNames[l]+' '+ LongMonthNames[2]+#13+ //wyświetlono dwa

//elementy tablicy

LongDayNames[l]+' '+LongDayNames[2]; end;

Wprowadzanie danych za pomocą okienek edycyjnych TEdit

Delphi udostępnia komponent typu TEdit, w którym można wpisywać łańcuchy tekstowe z klawiatury. W celu wykonania operacji arytmetycznych na wprowadzonych danych należy zamienić wprowadzony tekst na liczbę, stosując funkcje konwersji. Ważniejsze właściwości komponentu TEdit przedstawiono w tabeli 4.6.

Do ważniejszych zdarzeń należą: OnChange, które towarzyszy każdej zmianie tekstu wewnątrz kontrolki, oraz OnKeyPress generowane po naciśnięciu klawisza alfanumerycznego (zwraca kod naciśniętego klawisza). Przypisanie parametrowi Key (typu Char) wartości #0 blokuje wpisywanie znaków.

Przykład 4.4.

Po wprowadzeniu do okienka typu TEdit liczby całkowitej i kliknięciu przycisku Inc w tym samym okienku wyświetla się liczba o jeden większa.

Rozwiązanie

Wstaw na formularzu komponent TEdit i TButton. W procedurze obsługi kliknięcia przycisku wpisz instrukcje, jak w poniższej procedurze.