Fehlermeldung Konstantenausdruck erforderlich

mi-frank · Beiträge: 44

Hi,

habe folgenden Quellcode

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

var 
 DS:Integer;

procedure Test(Mode:integer);
begin
  case Mode of
     1:
       DS:=1;
     2:
       DS:=DS-1;
     3:
       DS:=Ds+1;
     4:
       DS:=frmAzubiBeurteilungsbogen.TableBogen.recordcount;
  end;
end;

bekomme die Fehlermeldung "Konstantenausdruck erforderlich" und weiß einfach nicht, was ich falsch gemacht habe?

Ich hoffe, einer von euch kann mir weiterhelfen!

Moderiert von Christian S.: Delphi-Tags hinzugefügt

Narses · Verfasst: Mi 01.03.06 00:19

Moin!

mi-frank hat folgendes geschrieben:

bekomme die Fehlermeldung "Konstantenausdruck erforderlich" und weiß einfach nicht, was ich falsch gemacht habe?

Wenn du jetzt noch dazu gesagt hättest, bei welcher Zeile der Fehler auftritt, könnten wir dir vielleicht sogar wirklich helfen; aber gut, dass du uns das raten läßt, sonst haben wir ja gar keinen Spaß dabei... :wink:

cu
Narses

PS: Wenn du die Delphi-Tags für deinen Code verwendest, wird dieser auch besser dargestellt und läßt sich leichter lesen.

Ehemaliges Mitglied Erhaltene Danke: 1

Mode darf keine Variable sein, da der Compiler die Sprungadressen der Case-Anweisung beim Kompilieren errechnet. Entweder überlegst du dir was anderes oder zu löst das mit if und else.

Narses · Verfasst: Mi 01.03.06 00:42

Moin!

Luckie hat folgendes geschrieben:

Mode darf keine Variable sein, da der Compiler die Sprungadressen der Case-Anweisung beim Kompilieren errechnet. Entweder überlegst du dir was anderes oder zu löst das mit if und else.

Ähm, also das glaube ich nicht; ich habe das mal gerade getestet, klar darf der case-Ausdruck eine Variable sein. Das ist IMHO was anderes, was bei ihm den Fehler wirft. :wink:

cu
Narses

Ehemaliges Mitglied Erhaltene Danke: 1

Hm, stimmt das geht:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

function foobar(Mode: Integer): String;
begin
  case Mode of
  0: ;
  1: ;
  2: ;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  foobar(2);
end;

Dann habe ich das jetzt mit irgendetwas anderem Verwechselt. :gruebel:

Ich glaube, ich habe das mit den Sprungzielen verwechselt, das dürfen keine Variablen sein.

JayEff · Beiträge: 2971 Windows Vista Ultimate D7 Enterprise

Genau, Luckie. Das hat mich auch schon geärgert ^^
Ich wollte die Wahrscheinlichkeit eines Zufallsevents variabel machen:

markieren

Delphi-Quelltext

1:
2:
3:
4:

case random(1000) of
 1..50:tudies;
 51..52+wasweisich:tudas;
end;

Aber das klappt nicht. Hier wird genau die Fehlermeldung gebracht, die mi-frank erhalten hat.
Blöderweise sollten wir tatsächlich wissen, in welcher Zeile das kommt. ausserdem solltest du [*delphi] [/delphi] tags verwenden, um den Code den du postest etwas schöner aussehen zu lassen :/ (ohne den * natürlich)

edit: [ot] sicher dass das nicht "fubar" für "fu**ed up beyond all recognition" heist?

_________________
>+++[>+++[>++++++++<-]<-]<++++[>++++[>>>+++++++<<<-]<-]<<++
[>++[>++[>>++++<<-]<-]<-]>>>>>++++++++++++++++++.+++++++.>++.-.<<.>>--.<+++++..<+.

BenBE · Verfasst: Mi 01.03.06 02:34

Ich hab zwei Ideen, woran es liegen könnte:

1. Mode ist vom Compiler in irgendeine Weise vorbelegt was zu Problemen in der Handhabung führt (denk ich mal weniger)

2. Durch die Zuweisungsoperationen wird der Compiler durch die Zuweisungen irritiert. Versuch mal, ob es so hier besser funzt:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

var 
    DS: Integer;

procedure Test(Mode: integer);
begin
    case Mode of
        1:
            Begin
                DS:=1;
            end;
        2:
            Begin
                Dec(DS);
            end;
        3:
            Begin
                Inc(DS);
            end;
        4:
            Begin
                DS := frmAzubiBeurteilungsbogen.TableBogen.recordcount;
            end;
    end;
end;

Ansonsten bitte wirklich noch einmal die genaue Fehlerzeile mitteilen.

Weiterhin (heut erst wieder gehabt*) ein wenig größeren Source-Abshnitt senden. Rein syntaktisch sehe ich hier keinen Fehler.

* Beim Source eines Kumpels gab's den Fehler "String nicht kompatibel mit Procedure, Untyped Pointer, ..." (markiert wurde das End einer Schleife) ... Ursache war ein +-Zeichen anstatt eines ; zehn Zeilen oberhalb ... Guck also auch mal speziell nach solchen Fehlern.

_________________

Anyone who is capable of being elected president should on no account be allowed to do the job.
Ich code EdgeMonkey - In dubio pro Setting.

mi-frank · Beiträge: 44

Hi,

die letzte Antwort war die richtige!

Hab mal wieder nicht an das Begin ... end; gedacht!

Nächstes mal werde ich probieren mich klarer auszudrücken, wo ich ein Problem habe!!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme