software center, download, programy, pliki, teledyski, mp3
Menu główne


strona główna
darmowy download
baza artykułów i porad
kontakt z nami
Programy
line Systemy
line Artykuły PDF

Security

line Skanery
line Sniffery
line Security

Windows

line Użytkowe
line Przeglądarki graficzne
line Kodeki
line Narzędzia plikowe
line Narzędzia dyskowe
line Narzędzia systemowe
line Sterowniki
line Szyfrowanie danych
line Zarządzanie hasłami
line Zarządzanie rejestrem
line Łaty i Patche
line Zarządzanie pamięcią
line Synchronizacja czasu
line Nagrywanie płyt
line Free Antivirus (Darmowe Antyvirusy)
line Sterowniki
line Obróbka dźwięku
line Edycja wideo

Internetowe

line Bezpieczeństwo
line Programy p2p
line Komunikatory
line Dodatki do przeglądarek
line Klienty poczty elektronicznej
line Narzędzia Antyspamowe
line Przeglądarki grup dyskusyjnych
line Przeglądarki Offline
line Serwery poczty elektronicznej
line Telefonia komórkowa
line Wyszukiwarki internetowe
line Zdalny dostęp
line Cybernianie
line Klienty FTP
line Narzędzia internetowe
line Prywatnośc
line Przeglądarki internetowe
line Serwery FTP
line Serwery WWW
line Wspomagacze ściągania
line Zarządzanie siecią lokalną

Tuning Systemu

line Diagnostyka i testowanie
line Inne
line Rozszerzenia pulpitu
line Tapety na pulpit
line Tuning Systemu
line Ikony
line Powłoki
line Tuning sprzętu
line Wygaszacze ekranu

Programowanie

line Kompilatory
line Biblioteki i komponenty
line Bazy danych
line Edytory programistyczne
line Środowiska programistyczne
line Debugery
line Tworzenie wersji instalacyjnych

Webmastering

line Użytkowe
line Kursy

Linux

line Użytkowe
line Internetowe
line Multimedialne

Programy biurowe

line Programy dla firm
line Pakiety biurowe
line Administracja
line Edytory tekstu
line Grafika prezentacyjna
line Kadry i płace
line Wspomaganie projektowania
line Zarządzanie projektami
line Bazy danych
line Finanse i księgowośc
line Handel
line Programy ewidencyjne
line Zarządzanie informacją osobistą (PIM)
Nasze serwisy

Programy download
Bramka SMS
Download
Gry
Gry Online
Linux
Muzyka
Newsy
Programowanie
Program TV
Śmieszne Filmy
Teledyski
Kobiety


Artykuły > Programowanie w Delphi > Pętle
unit uPetle;
{

Pętle powtarzają dane bloki kodu w zależności od określonych warunków.

Najprostrzą i chyba najczęściej używaną jest pętla for.Pętla ta powtarza dane instrukcje określoną ilość razy. Wymaga ona zadeklarowanej zmiennej liczbowej, której wartość jest równa aktualnemu "powtórzeniu". Wygląda ona tak:

var
x:integer;

for x:={wartość poczatkowa} to {wartość końcowa} do
  begin
    {instrukcje}
  end;


Wartość x będzie się zwiększała o 1 po kożdym "powtórzeniu", aby x malał o 1 należy zamiast słowa "to" wstawić "downto":

var
x:integer;

for x:={wartość poczatkowa} downto {wartość końcowa} do
  begin
    {instrukcje}
  end;

czyli przykładowe użycie tej pętli będzie wyglądało następująco:

var
x:integer;
begin
for x:=0 to 20 do //od 0 do 20 rób...
  begin
    caption:=inttoetr(x); //pokaż na pasku aktualne powtórzenie
    sleep(20); // poczekaj 20 milisekund
  end;

Następnym rodzajem pętli jest pętla while. Wykonuje ona dane czynności dopuki nie zostanie spełnony okreslony warunek:

while {warunek} do
  begin
    {instrukcje}
  end;

czyli np.:

var
x:integer;
begin
x:=0;
while x<20 do inc(x); //zwiększaj x o 1 aż do 20

Ostatnią pętlą jest pętla repeat. Różni się ona od pętli while tym, że podane w niej instrukcje zostaną wykonan co najmniej jeden raz, jej budowa wygląda tak:

repeat
  {instrukcje}
until
  {warunek}

na przykład:

var
x:integer;
begin
x:=0
repeat
  inc(x)
until
  x<20;

Z pętlami są związane równiż dwie specyficzne procedury: break i continue. Procedura break zatrzymuje dalsze wykonywanie pętli, np.:

var
x:integer;
begin
for x:=0 to 20 do //od 0 do 20 rób...
  begin
    if x=8 then break; //jeżeli x = 8 to przerwij działanie pętli
  end;

Natomiast procedura continue, sprawia że pętla nie kożczy aktualnego powtórzenia i przechodzi do następnego:

var
x,y:integer;
begin

for x:=0 to 20 do
  begin
    caption:='';
    randomize;
    y:=random(3); //losuj od 0-2
    if y=0 then continue; //jeżeli y=0 to przejdz do następnego powtórzenia

    caption:='Wylosowales '+inttostr(y);
    sleep(20);
  end;

Autor: Michał Łoński

komentarz[1] |

programy download hacking program tv bramka sms teledyski kody do gier
trailery filmiki gry online antywirusy artykuły tutoriale systemy
© 2006-2009 haksior.com. Wszelkie prawa zastrzeżone.
Design by jPortal.info
0.007 |