| PROGRAMOWANIE |  Kurs Object Pascala cz.IV   

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



                    
ARCHIWALIA | WEBHELP.PL | REDAKCJA                  POPRZEDNIA STRONA | SPIS TREŚCI | NASTĘPNA STRONA

CONTENTS COPYRIGHT © 2000 - 2001, KRZYSZTOF DZIEWOŃSKI. ALL RIGHTS RESERVED.