4 (2006)

52 Aplikacje w Delphi. Przykłady

Gdy funkcją konwertującą tekst na liczbę jest StrToFloat, liczby rzeczywiste wpisujemy zgodnie z ustawieniami regionalnymi środowiska Windows (zwykle z przecinkiem).

Jeśli funkcją konwertującą tekst na liczbę jest funkcja Val, to liczby rzeczywiste wpisujemy zawsze z kropką.

Liczby rzeczywiste w kodzie programu wpisujemy zawsze z kropką.

Inne funkcje umożliwiające wyświetlenie liczb całkowitych w zapisie heksadecymal-nym przedstawiono w tabeli 4.3.

Tabela 4.3. Funkcje zamieniające liczbą w zapisie dziesiętnym na liczbą w zapisie heksadecymalnym Funkcja    Znaczenie

IntToHex    Pełna postać wywołania funkcji jest następująca: IntToHex(Value: Integer; Digits:

Integer): string, gdzie Value to liczba całkowita, Digits — liczba cyfr w postaci heksadecymalnej. Funkcja zwraca wartość typu stri ng. Przykłady wyświetlania na etykiecie liczb w zapisie heksadecymalnym:

Label1.Capti on:=IntToHex(128.8); — wynik to 00000080;

Label 1. Capti on: =IntToHex(257,2}; — wynik to 101 —jeśli drugi parametr jest za mały do przedstawienia liczby w postaci szesnastkowej, to i tak wynik będzie poprawny.

Format    Funkcja ta — przedstawiona już w tabeli 4.2 — może również zamieniać liczbę

w zapisie dziesiętnym na liczbę w zapisie heksadecymalnym. Przykład:

Label 1. Capti on: “Format ('*5x'. [127]) —wynikiem będzie liczba 7F.

Daty — funkcje konwersji i formatowanie daty i czasu

W tabelach 4.4 i 4.5 przedstawiono funkcje, które umożliwiają konwersję typów określających datę i czas (TDate, TDateTime) na typ znakowy (string), funkcje służące do odczytu daty i czasu z systemu operacyjnego oraz funkcje pomocnicze, np. do dekodowania składowych daty, inkrementacji daty i czasu itp.

Przykład 4.1.

Napisz program, który po każdym kliknięciu przycisku wyświetli na etykiecie kolejne daty, począwszy od bieżącej, różniące się o jeden miesiąc.

Rozwiązanie

Wstaw przycisk i etykietę. Zadeklaruj zmienną globalną:

var dt:TDate;

W procedurze obsługi zdarzenia OnCreate dla formularza przypisz zmiennej dt wartość początkową: dt: =Date.