Prozedur zum Teil überspringen

DieNase · Beiträge: 20

Moin,

ich habe eine Prozedur in der mehrere Berechnungen durchgeführt werden und eine von diesen rechnungen darf nicht durchgeführt werden wenn ich vorher eine ungerade Zahl eingebe.
Jetzt hätte ich ganz gerne, das wenn es der Fall ist das eine ungerade Zahl eingegeben ist diese Rechnung der Prozedur übersprungen wird und danach wieder normal weitergearbeitet wird.

Ich bin soweit das ich nach geraden und ungeraden Zahlen unterscheiden kann ( da hat mir das Forum schon gut geholfen) aber das aussetzen bzw. das einsetzen in die Prozedur bereitet mir Bauchschmerzen.

Also wenn das schonmal einer gemacht hat, dann möge er mir bitte helfen.

Vielen Dank
Michael

Raffo · Beiträge: 300

Vergleiche am Anfang der Proc, und mach dann EXIT oder verwende doch ganz frech mal ein GOTO

Aber im Ernst, Hellseher sind wir nicht, wäre nett wenn Deine Procedure hier als Beispiel steht.

ManuelGS · Verfasst: Do 15.09.05 20:42

Sowas?

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

if odd(zahl) then begin
   ...
   end
else begin
   ...
   end;

Das ist aber Programmierer-Einmaleins. Les mal paar Tuts.

_________________
"Leben ist gänzlich Bühne und Spiel; so lerne denn spielen
und entsage dem Ernst - oder erdulde das Leid." - Palladas von Alexandria

GTA-Place · Verfasst: Do 15.09.05 20:43

Dann versuch mal (jetzt so aus meiner Kugel abgelesen):

markieren

Delphi-Quelltext

1:
2:
3:
4:

if Odd(X) then
  // Zahl ist ungerade
else
  // Zahl ist gerade

Oder ander gesagt:

markieren

Delphi-Quelltext

1:
2:
3:
4:

if not (Odd(X)) then
  Round(X);

// Mache was anderes...

EDIT: Da versucht man sich zu beeilen und dann
ist man doch zu spät dran... :wink:

_________________
"Wer Ego-Shooter Killerspiele nennt, muss konsequenterweise jeden Horrorstreifen als Killerfilm bezeichnen." (Zeit.de)

DieNase · Beiträge: 20

Ok, danke Jungs ich werde es probieren.
Ich sag bescheid wenns funktioniert.

Ich als Anwender bestätige, dass 90% der Fehler Anwenderfehler sind.

DieNase · Beiträge: 20

Danke nochmal.....funktioniert prima

Michael

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme