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.
Wyszukiwarka
Podobne podstrony:
5 (1794) Rozdział 4. ♦ Wprowadzanie danych, formatowanie i wyświetlanie na ekranie 53 Tabela 4.4.
9 (1259) 57 Rozdział 4. ♦ Wprowadzanie danych, formatowanie i wyświetlanie na ekraniePrzykład 4.6. W
3 (2314) 51 Rozdział 4. ♦ Wprowadzanie danych, formatowanie i wyświetlanie na ekranie Tabela 4.2. Fu
21 (861) 69 Rozdział 4. ♦ Wprowadzanie danych, formatowanie i wyświetlanie na ekraniePrzykład 4.20.
23 (800) Rozdział 4. ♦ Wprowadzanie danych, formatowanie i wyświetlanie na ekranie 71 Tabela 4.9.
skanuj0138 (15) Rozdział 5. ♦ Przetwarzanie danych z przeglądarki 149 fclose(Sfd): header("Cont
skanuj0140 (14) Rozdział 5. ♦ Przetwarzanie danych z przeglądarki 151 Katalog jest otwierany za pomo
skanuj0144 (13) Rozdział 5. ♦ Przetwarzanie danych z przeglądarki 155 header("Content-Type:
skanuj0130 (14) Rozdział 5. ♦ Przetwarzanie danych z przeglądarki 141 skrypt, odczytujący wartos ć p
więcej podobnych podstron