Delphi turvallisempi

C_Vaarallinen

eräässä C -ohjelmointioppaassa oli varoittava esimerkki ohjelmointivirheen seurauksena päättymättömästä silmukasta:

#include
void main(void) {
unsigned i;
for (i=10; i >= 0; i--) {
printf(“i is %u\n”, i);
}
}

--------
Entäpä vastaava for -silmukka Delphillä:

procedure TForm1.bnLoopTestClick(Sender: TObject);
var
SL : TStrings;
L : Longword;
begin
//
SL := memLog.Lines;
for L := 10 downto 0 do begin
SL.Add( IntToStr(L) );
// ---------------------------
if L >= $FFFFFFF0
then begin
//
SL.Add('--- Päättymätön silmukka - lopetettu. ---');
EXIT;
end;
end;
end;

Arvatkaapa, tulostaako ohjelma tuon '--- Päättymätön silmukka - lopetettu. ---' ?

EI !!

Ohjelma tulostaa kiltisti numerot 10:stä alaspäin 0:aan saakka ja lopettaa.

2

672

    Vastaukset 2

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • Delphi fani

      Mitä ihmeen varoittavaa tuossa nyt on, meinaa c-koodissa, ikuinen luuppiko, huh!

      Eiköhän koodata tuo C sitten hiukan erilailla, kun ei haluta ikuista härdelliä, tuon nyt luulisi
      olevan itsestään selvyys, mutta kaipa nuo oppaan tekijät aina ovat niitä "virheistä oppii miehiä"


      ////////////////////////////////////////////////
      #include

      void main(void) {
      unsigned i;
      for (i=10; i >= 0; i--) {
      if (i >= 0xFFFFFFF0) break;
      printf("i is %u\n", i);
      }
      }
      ///////////////////////////////////////////////

    • vaarallista!

      Kyllä aloittaja nyt tais tehdä kärpäsestä härkäsen. Päättymättömissä luupeissa ei ole itsessään mitään vaarallista, ne voi joissain tilanteissa olla toki harmillisia kun ei exitiä ole vaan ohjelma menee takas alkuun mutta kyllä niistä aina jollain konstin irti pääsee.

      Sen sijaan mä kokisin vaaralliseksi jotkut tietyt toimenpiteet jotka on alatason rautakäskyjä, esim. väärillä käskyillä voidaan vaikka vahingossa formatoida kovo, tai vaikka tyhjentää bios.

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. Suomalaiset nuoret Eu:n köyhimpiä?

      Suomalaisen nuoren varallisuus keskimäärin 5000e. Eu:ssa keskimäärin 25 000e.
      Maailman menoa
      229
      1596
    2. Mikä on sun ja kaivattusi nimen viimeinen kirjain?

      Välillä näin päin...
      Ikävä
      91
      1270
    3. Sofia teki aika pahat oharit

      Leikkiikö Sofia kansainvälistä kosmopoliittia vai menikö rehdisti pupu pöksyyn, kun perui viestillä tulonsa puoli tunti
      Kotimaiset julkkisjuorut
      241
      1213
    4. Mikä on toinen nimesi?

      Tiedätkö naisen?
      Ikävä
      67
      985
    5. Mikä on kaivattusi

      Nimi väärinpäin🤔🙃
      Ikävä
      75
      901
    6. Mikä kaivatussasi

      on niin erityistä?
      Ikävä
      41
      685
    7. Kohdataanko me

      Enää?
      Ikävä
      57
      639
    8. Muiden vaikutus

      Oletko antanut muiden vaikuttaa mielipiteisiisi, tunteisiini tai valintoihisi suhteessa kaivattuusi?
      Ikävä
      80
      552
    9. Miten J sitten tehdään se?

      Varaanko kumin?
      Ikävä
      45
      527
    10. No tavallaan seuraava kohtaaminen on käänteentekevä

      Koska sanon sulle että rakastan sua. On aika. Pösilö.
      Ikävä
      29
      514
    Aihe