Ciklus menedzsment Delphi, Delphi, Delphi komponens Delphi forrás
ciklus menedzsment Delphi
Ebben a példában, a ciklus kezdődik, amelyben a i változó változik -3 és 3. Minden egyes lépés 10 elosztjuk az i értéke, és az eredményt eltárolja r változót.
Ha elosztjuk a használt kerek funkciót, ami kerekíti az ezt az értéket. Mivel egy kezdeti értéket, akkor adja át az eredménye elosztjuk 10 i változó, azaz, kerek (io / i). Így a változó g feljegyezzük egész számra kerekített érték eredményeként osztás.
A következő lépés hozzáadásával eredmény ListBox1, egyidejű átalakítva a változó z a karakterlánc.
Lássuk, mi történik, ha a i változó értéke 0. Ebben az esetben a 10-es számú lesz osztva 0, ami azt jelenti, hogy van egy hiba, mert nem lehet osztani 0. Hogy aztán, hogy ki ez a helyzet? Akkor minden egyes szakaszában a ciklus, hogy ellenőrizze az i értékét, és ha 0, akkor nem tesz semmit. Két lehetséges megoldás van megadva a listát:
eljárás TForml.CalculateButt # 111; nKattints (küldő: TObj ECT); var
kezdődik i: = - 3 3 csinálni
kezdődik a 11. Ez a kezdete az üzemeltető számára, ha én<>0, akkor
kezdődik // Ez a kezdete az if
ListBoxi.Items.Add (40 / '+ IntToStr (i) +' = „+ IntToStr (R)); end; // E célból, ha vége az üzemeltető; // Ez a vég üzemeltető végén;
Ebben a példában minden egyes szakaszában ellenőrzi az i értékét, és ha ez nem 0, akkor csak ebben az esetben a számításokat végeznek.
Ez egy nagyon egyszerű megoldás a kicsi és egyszerű program. De ha a ciklus nagy, és nem a sok fellépés, a döntés lesz legalább kényelmetlen és elveszhet „olvashatóság” kódot. A legrosszabb esetben, ott nem kap semmit. Itt jön, hogy segítsen továbbra nyilatkozatot.
eljárás TFormi.CalculateButt # 111; nKattints (küldő: TObj ECT); var
i, R: egész; kezdődik i: = - 3 3 csinálni
kezdődik // Ez a kezdete az üzemeltető számára, ha 1 = 0, akkor
kezdődik /./ Ez a kezdete az if
ListBoxi.Items.Add ( „nem nullával osztani”);
Folytatás end; // E célból az üzemeltető, ha
ListBoxi.Items.Add ('10 / '+ IntToStr (i) +' = „VlntToStr (R)); végén; // Ez a vég üzemeltető végén;
Ebben a példában megnézzük, minden lépést a változó értékét i. Ha az érték nulla, az üzenet ListBox1, hogy nem lehet nullával osztani, és végrehajtja a nyilatkozat folytatódik. Miután a program megfelel ennek az operátornak, azonnal megszakítja további végrehajtását a hurok, és továbblép a következő lépésre. Ez ugyanaz, hogy hajtsa végre a „Stop the tovább a program végrehajtásáról,
értékének növelése az i változó, és indítsa el a ciklus a következő érték. "
Miután a program megfelel továbbra operátor, akkor ugrik a ciklus végén, ahol a számláló értéke megnő (ebben az esetben a változó az i) és végrehajtása folytatódik a következő lépésben.
Ábra. Ez azt mutatja, egy űrlapot az eredménye a példa.
Using folytassa a hurok nagyon kényelmes és biztonságos, ellentétben a while ciklus, vagy ismételje meg. amíg. Nézzük meg a következő példát:
míg én<3 do begin if i=0 then continue;
Amikor végre a continue utasítás egy while ciklus. ellenőrizze, hogy a számláló változik. Ebben az esetben szükséges volt ahhoz, hogy a következő ellenőrzéseket:
ha i = 0, akkor kezdődik i: = i + l; tovább; végén;
Ebben az esetben, mielőtt a következő lépést a ciklusidő értéke az i változó értéke eggyel nő, majd a következő lépésben nem lesz nulla.
Most nézzük, hogy egy break utasítással. Miután a program megfelel ez az operátor, a ciklus megszakad és végrehajtás átadni a következő nyilatkozatot követően a hurok nyilatkozatot. Nézzük az előző példához, és helyette továbbra is megtörni:
eljárás TForml.CalculateButt # 111; nKattints (küldő: TObj ECT); var
i, R: egész; kezdődik i: = - 3 3 csinálni
kezdődik // Ez a kezdete az üzemeltető számára, ha 1 = 0, akkor
kezdődik // Ez a kezdet, ha ListBoxl.Items.Add operátor ( „Ha nulla szakadék nem”); break;
végén; // E célból a kezelő számára, ha r: = kerek (10 / i);
ListBoxl.Iterns.Add ('10 / '+ IntToStr (i) +' = „+ IntToStr (R)); végén; // e célból a ListBox1.Items.Add operátor ( „számítás vége”); végén;
Ebben az esetben, ha az i értéke egyenlő nullával, akkor az üzenet nem tud nullával osztani, és a ciklus megszakad. Ezt követően, a vezérlés a következő nyilatkozatot követően ciklusban.
Mint látható, miután találkozott a nulla a hurok, akkor nem csinál semmit, és egyszerűen szünetet nyilatkozat befejezi munkáját.