Ab bestimmter Schleifenanzahl tue etwas

[youuu]

Hi,


wie kan nich es realisieren das ab zum Beispiel zwischen allen 50-100 Schleifen ein bestimmtes Event zusaätzlich abgearbeitet wird?

[Klaus01]

Delphi-Quellcode:

if (laufvariable >= 50) and (laufvariable <=100) then
  begin
  end;

Grüße
Klaus

[himitsu]

Bei Werten von 0 bis 255 könnte man auch IN verwenden

Delphi-Quellcode:

if laufvariable in [50..100] then // 50 bis 100

if laufvariable in [10, 50] then // 10 und 50

if laufvariable in [10, 50..100] then // 10 und 50 bis 100

[Tryer]

Anders interpretiert: "zwischen","allen" als [51..99, 151..199, ...]:

Delphi-Quellcode:

if (laufvariable mod 100 > 50) then

[Namenloser]

[OT]Wann kommt der erste mit Assembler? SCNR [/OT]

[Delphi-Laie]

Zitat:

Zitat von youuu (Beitrag 1114160)

wie kan nich es realisieren das ab zum Beispiel zwischen allen 50-100 Schleifen ein bestimmtes Event zusaätzlich abgearbeitet wird?

Meinst Du wirklich Schleifen? Die findet man im Quelltext, allerdings werden nicht immer alle durchlaufen (alternative Programm-/Algorithmusteile). Oder meinst Du vielmehr Schleifendurchläufe? Die finden beim Abarbeiten, Ablaufen des Progammes statt. Bei einer Zählschleife die Zählvariable mit der Modulo-Funktion zu prüfen oder bei einem anderen Schleifentyp einen zusätzlichen Schleifenzähler zu implementieren und diesen auf die gleiche Weise auszuwerten, sollte nicht schwierig sein. Man müßte dann zusätzlichen Code implementieren, der dann aktiv wird, wenn Modulo eben 50 oder 100 groß ist. Ein zusätzliches Ereignis (kommen die nicht immer "von außen"?) zu generieren, halte ich nicht für nötig. Die einzigen "Ereignisse", die "von innen", also vom Programmablauf selbst kommen, sind n.m.W. die INT-Befehle im Assembler, doch das sind m.E. keine echten Ereignisse i.S. einer Hochsprache.

[KrasserChecker]

Meinst Du sowas:

Delphi-Quellcode:

var i: Integer;
begin
  for i := 0 to 1000 do
  begin    
    // Do something here
    ...

    if i mod 50 = 0 then
    begin
      // Do something additional here
      ...   
    end;
  end;
end;

[BUG]

@youuu: Wie du an der ganzen Raterei erkennst, wäre es vielleicht besser, wenn du das Problem nochmal genauer erklärst oder sagst, was du machen willst.