If Bedingung

[LoL]

hi

mal ne echt dumme Frage kann man mit einer If Bedingung 2 Schleifen trennen, aber danach soll bei beiden Schleifen das selbe abgearbeiten werden. Ist warscheinlich jetzt dumm fomuliert daher hier ein Code:

Delphi-Quellcode:

if bedingung then 
  1.Schleife
else
  2.Schleife
finally
  Abarbeitung
  ...........

Ich weis soetwas gibt es nicht aber ich hoffe ihr habt verstanden was ich meine.

Gruß Christoph

[chris_82]

Warum soll das denn auf dies Art und weise nicht gehen...das heißt doch mache wenn bedingung das sonst das und wenn du damit fertig bist mache das...ist doch ok....obwohl ich nicht weiß ob dazu finally genommmen wird oder ob du aber einfach die schleifen in begin end einschließt, dann mach er das ja eigentlich automatisch

[LoL]

hi

Normalerweise würde ich es so machen:

Delphi-Quellcode:

if bedingung then
  1.schleife
  begin
    abarbeitung
  end;
else
  2.schleife
  begin
    abarbeitung
  end;

ich möchte aber das ich die abarbeitung in beiden fällen gemacht wird nur mit unterschiedlichen schleifen etwa:
1. Schleife := 1 to 10
2. Schleife := 3 to 8

gruß christoph

[teebee]

Dann setze Dir doch einfach Start- und Endwert für die Schleife in Deinen Bedingungen.

Gruss, teebee

[chris_82]

wenn du dafür einfach ne eigene procedure oder funktion schreibst und die an dieser stelle dann einfach aufrufst, sollte es doch kein problem sein und hast eben nur einmal die schreibarbeit :coder:

[chris_82]

ja oder wie oben beschrieben geht es sicher auch

[LoL]

@chris

ja genau auf die einfachsten sachen kommt man nich ich mach ne Prozedur. Ich wollt mir nur die doppelte Schreibarbeit ersparen

thx