9 (1259)

57

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

Przykład 4.6.

Wyświetl na etykiecie zawartość okienka TEdit po wprowadzeniu danej i naciśnięciu klawisza Enter.

Rozwiązanie

W procedurze obsługi zdarzenia OnKeyPress dla komponentu TEdit wpisz instrukcje jak w procedurze poniżej:

procedurę TForml.Edit2KeyPress(Sender: TObject; var Key: Char): begin

if Key=#13 then Labell.Caption:=Edit2.Text; end;

Aby wejść do procedury obsługi zdarzenia OnKeyPress, można skorzystać z Inspektora Obiektów, wybierając zakładkę Events i klikając dwukrotnie z prawej strony zdarzenia

OnKeyPress.

Przykład 4.7.

Napisz program, który umożliwi obliczenie sumy dwóch liczb całkowitych wprowadzonych z klawiatury do dwóch okienek typu TEdit po wpisaniu liczb i kliknięciu przycisku Oblicz sumą — rysunek 4.2.

Rysunek 4.2.

Komponenty do zadania obliczającego sumą dwóch liczb

Rozwiązanie

W procedurze obsługi kliknięcia przycisku zadeklaruj dodatkowe zmienne i wpisz treść jak poniżej:

// obliczanie sumy dwóch liczb całkowitych procedurę TForml.ButtonlClick(Sender: TObject); var Ll,L2:integer; begi n

Ll:=StrToInt(Editl.Text);

L2:=StrIoInt(Edit2.Text);

Labell.Caption:=Inttostr(Ll+L2);

// lub to samo krócej:

// Label l.Caption:=Inttostr(StrToInt(Editl.Text)+StrToInt(Edit2.Text)): end:

Aby dodać liczby rzeczywiste, wystarczy zamienić funkcje konwersji liczb całkowitych (IntToStr i StrToInt odpowiednio na funkcje konwersji liczb rzeczywistych — FloatToStr i StrToFloat) i deklarację typu zmiennej z Integer na Single.