Ilustruje to rysunek poniżej...

Odnośniki

Smutek to uczucie, jak gdyby się tonęło, jak gdyby grzebano cię w ziemi.

Copyright by Wydawnictwo Złote Myśli & Mirosław J. Kubiak
PROGRAMUJĘ W DELPHI I C++ BUILDER - darmowy fragment - kliknij po więcej
● str. 47
Mirosław J. Kubiak
Rys. 3.1. Program P02 podczas projektowania formularza.
4. następnie dwukrotnie klikamy na formularzu przycisk Zacznij
i podpinamy związaną z nim procedurę procedurę
TForm1.Button1Click(Sender: TObject) z następującym
kodem:
procedure TForm1.Button1Click(Sender: TObject);
var
litera : Char;
liczba : Integer;
pomiar : Real;
begin
litera:='A';
liczba:=120;
pomiar:=78.231;
Copyright by Wydawnictwo Złote Myśli & Mirosław J. Kubiak
PROGRAMUJĘ W DELPHI I C++ BUILDER - darmowy fragment - kliknij po więcej
● str. 48
Mirosław J. Kubiak
Edit1.Text:=litera;
Edit2.Text:=IntToStr(liczba);
Edit3.Text:=Format('%2.2f', [pomiar]);
end;
5. W ostatnim etapie dwukrotnie klikamy przycisk Zakończ
i w procedurze

procedure TForm1.Button2Click(Sender: TObject)
umieszczamy następujący kod:
procedure TForm1.Button2Click(Sender: TObject);
begin
Edit4.Text:='Koniec programu';
end;
Kilka słów wyjaśnienia poświęcimy następującym linijkom kodu:
Edit2.Text:=IntToStr(liczba);
Edit3.Text:=Format('%2.2f', [pomiar]);
Zapis Edit2.Text:=InttoStr(liczba) oznacza, że aby w polu Edit2
mogła się pojawić zmienna liczba, to musi na niej zostać wykonana
konwersja typu przy pomocy procedury IntToStr. Więcej informacji
na temat systemowych procedur konwersji typu znajdzie czytelnik
w Dodatku na końcu książki.
Copyright by Wydawnictwo Złote Myśli & Mirosław J. Kubiak
PROGRAMUJĘ W DELPHI I C++ BUILDER - darmowy fragment - kliknij po więcej
● str. 49
Mirosław J. Kubiak
Zapis Edit3.Text:=Format('%2.2f', [pomiar]) oznacza, że aby
w polu Edit3 mogła się pojawić zmienna pomiar typu
rzeczywistego, musi ona zostać najpierw poddana formatowaniu.
Więcej informacji na temat formatowania łańcuchów tekstowych
znajdzie Czytelnik w Dodatku.
Poniżej znajduje się cały program napisany w Delphi (P02).
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes,
Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;
type
TForm1 = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Button1: TButton;
Button2: TButton;
Panel3: TPanel;
Edit4: TEdit;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Copyright by Wydawnictwo Złote Myśli & Mirosław J. Kubiak
PROGRAMUJĘ W DELPHI I C++ BUILDER - darmowy fragment - kliknij po więcej
● str. 50
Mirosław J. Kubiak
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
litera : Char;
liczba : Integer;
pomiar : Real;
begin
litera:='A';
liczba:=120;
pomiar:=78.231;
Edit1.Text:=litera;
Edit2.Text:=IntToStr(liczba);
Edit3.Text:=Format('%2.2f', [pomiar]);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Edit4.Text:='Koniec programu';
end;
end.
C++ Builder
Po zadeklarowaniu zmiennej, przy użyciu operatora przypisania
(oznaczonego znakiem równości =) możemy przypisać jej
odpowiednią wartość. Ogólna postać instrukcji przypisania jest
następująca:
nazwa_zmiennej = wyrażenie
Copyright by Wydawnictwo Złote Myśli & Mirosław J. Kubiak
PROGRAMUJĘ W DELPHI I C++ BUILDER - darmowy fragment - kliknij po więcej
● str. 51
Mirosław J. Kubiak
Do wyświetlania na ekranie wartości zmiennych posłużymy się
polem Edit. Na formularzu wykonujemy następujące czynności:
1. umieszczamy na nim trzy komponenty Panel, cztery
komponenty Edit oraz dwa przyciski Button,
2. po umieszczeniu na formularzu komponentu Panel1 należy na
w Object Inspectorze zmienić we właściwościach ( Properties)
w Caption Panel1 na Litera, Panel2 na Liczba oraz Panel3
na Pomiar.
3. po umieszczeniu na formularzu przycisku Button należy
w Object Inspectorze zmienić we właściwościach ( Properties)