Stałe
Stałe są podobne do zmiennych z tym, że przypisanie im wartości następuje
odrazu. Stałe deklaruje się przy użyciu słowa const:
procedure TForm1.Button1Click(Sender: TObject);
const
AppName = 'Mój Program 1.0';
begin
ShowMessage(AppName);
end;
Nawet nie musisz podawać typu zmiennej, ale możesz zrobić tak...
const
AppName = 'Mój Program 1.0';
V = 1.0;
Build = 22;
...albo tak:
const
AppName : PCHar = 'Mój Program 1.0';
V : Currency = 1.0;
Build : Byte = 22;
W tym wypadku przypisany został typ danych przypisanych.
Pętle
Pętle są blokiem, który jest wykonywany do czasu, w którym zostanie spełniony
warunek jej zakończenia. Istnieją trzy rozdziaje pętli.
Pętla REPEAT
Ci, którzy programowali w Turbo Pascalu nie będą mieli z tym problemów.
Otóż pętla repeat wykonuje określoną czynność do póki nie napotka na
warunek jej zakończenia. Oto przykład ( umieść na formie komponent Memo ):
procedure TForm1.Button1Click(Sender: TObject);
var
I : Integer;
begin
I := 0; // domyslna wartosc
repeat
Inc(I); // zwieksz o jeden
Memo1.Lines.Add('Wykonanie nr: ' + IntToStr(i));
until i = 100;
Close; // zamknij program
end;
Na formie umieszczony został komponent typu Memo ( ponownie odsyłam do
kursu Delphi:
www.programowanie.of.pl
). Na początku do zmiennej, która została wcześniej zadeklarowana zostanie
przypisana wartość domyślna, czyli cyfra 0. Następnie następuje rozpoczęcie
pętli ( zauważ, ze po słowie repeat brak jest średnika! ), zwiększenie
wartości zmiennej typu Integer o jeden. [ Polecenie Inc znaczy to samo co: X :=
X + 1 ]. Do zmniejszania wartości o jeden służy polecenie Dec. Jeszcze pare słów
o poleceniu Dec i Inc. Istnieje możliwość ustawienia zakresu o który wartość
ta ma być zwiększana:
Inc(i, 2);
Takie coś powoduje zwiększanie zmiennej i nie o jeden, ale o dwa oczka....
No, ale powóćmy do naszej pętli. Warunek zakończenia pętli sprawdzany
jest PO jej wykonaniu, a następuje to za pomocą słowa until. Po tym słowie
następuje wpisanie wartości, która ma spowodować zakończenie pętli. Innymi
słowy program ma wykonywać pętle dopóty, dokópki zmienna i nie osiągnie
wartości 100.
Aha, no i operator + który został zastosowany w tym przykładzie słuzy do
połączenia dwóch instrukcji....
Pętla FOR
Tej pętli używaj zawsze gdy nie dokładnie wiesz kiedy ma się ona zakończyć.
Tak samo jak pętla powyższa wykonuje ona określoną czynność. Oto
zaprezetowanie działania pętli, który da taki sam efekt jak w powyższym
przykładzie:
procedure TForm1.Button1Click(Sender: TObject);
var
I : Integer;
begin
for I := 0 to 100 do
begin
Memo1.Lines.Add('Wykonanie nr: ' + IntToStr(i));
end;
end;
Trochę mniej kodu to wymaga, prawda? Pętla rozpoczyna swój żywot za pomocą
słowa for. Następnie przypisanie początkowej wartości zmienej i. Zmienna ta
może wynosić dowolną wartość. Następnie za słowem to następuje wpisanie
wartości do której pętla zostanie wykonana. No i za słowem do begin następuje
wpisanie właściwego bloku wykonywanej pętli.
Pętla WHILE
Ta pętla jest bardzo podobna do repeat. Różni się tylko tym, że warunek
jej zakończenia sprawdzany jest na samym początku, a nie jak w pętli repeat
na początku.
procedure TForm1.Button1Click(Sender: TObject);
var
I : Integer;
begin
I := 0;
while I < 100 do
begin
Inc(i);
Memo1.Lines.Add('Uruchomienie nr: ' + IntToStr(i));
end;
end;
W tym wypadku dokóki zmienna i nie osiągnie wartości 100 ( będzie
mniejsza niż 100 ) pętla będzie kontynuowana.
Autor:
Adam Boduch
boduch@poland.com
Kurs udostępnił :
http://www.programowanie.of.pl