Delphi - globaler Variable globale Variable zuweisen

[Errormeldung (Gast)]

Hallo,

ich habe folgendes Codestückchen:

var
  numRows: Integer = 2;
  numColumns: Integer = 20;
  CharWidth: Integer = 5 * PixelWidth + 4 * PixelVSpacing;
  CharHeight: Integer = 8 * PixelHeight + 7 * PixelHSpacing;
  ScreenWidth: Integer = numColumns * CharWidth + (numColumns - 1) * CharVSpacing;

PixelWidth, PixelHeight, PixelVSpacing und PixelHSpacing sind 
Konstanten.

Nun bekomme ich bei Screenwidth einen eine Erormeldung 
"Konstantenausdruck erwartet". Soweit ich das verstehe kommt Delphi 
nicht mit den Variablen in der Zeile klar, obwohl ich diese darüber 
deklariert und zugewiesen habe.

Weiß jmd. vielleicht eine Lösung, wie ich Delphi zu dieser Rechnung 
zwingen kann? Ohne FormCreate oder so, sondern in der globalen 
Variablenzuweisung?

Wäre nett, wenn mir jemand helfen könnte.

[amateur (Gast)]

Ich wüsste nicht wie, aber man kann den Abschnitt "Initialization" 
hierfür benutzen.

[Sina A. (sinapse)]

warum willst du das denn nicht im konstruktor machen??

du muesstest einfach die berechnungen in konstanten ablegen also

const var //keine ahnung wie man das macht in delphi
  cnumRows: Integer = 2;
  cnumColumns: Integer = 20;
  cCharWidth: Integer = 5 * PixelWidth + 4 * PixelVSpacing;
  cCharHeight: Integer = 8 * PixelHeight + 7 * PixelHSpacing;
  cScreenWidth: Integer = numColumns * CharWidth + (numColumns - 1) * 
CharVSpacing;

und dann erst zuweisen

var

  numRows: Integer = cnumRows;
  numColumns: Integer = cnumColumns;
  CharWidth: Integer = cCharWidth;
  CharHeight: Integer = cCharHeight;
  ScreenWidth: Integer = cScreenWidth;

[amateur (Gast)]

Du legst ja deine Variablen "außen" an. Eine Initialisierung ist an 
dieser Stelle kein Problem, Du willst aber außerhalb des Programms 
"rechnen", während diese Variablen immer noch nicht ready-to-use sind. 
Dies wäre erst in der Hauptfunktion, oder in den von Dir angeführten 
Create usw. möglich.

Übrigens was spräche gegen:
ScreenWidth: Integer = numColumns *
                      (5 * PixelWidth + 4 * PixelVSpacing) +
                      (numColumns - 1) * CharVSpacing;

Habe allerdings keinen Compiler zur Verfügung.

[Errormeldung (Gast)]

Ich glaube die Initialization Methode wäre die bessere Wahl. Habs nun 
doch so gemacht.

[amateur (Gast)]

Na bitte!

Allerdings wären meine beiden Vorschläge auch eine Lösung gewesen.
Die zweite sogar "echt" Konstant.

[compy (Gast)]

Errormeldung schrieb:
> Nun bekomme ich bei Screenwidth einen eine Erormeldung
> "Konstantenausdruck erwartet". Soweit ich das verstehe kommt Delphi
> nicht mit den Variablen in der Zeile klar, obwohl ich diese darüber
> deklariert und zugewiesen habe.

Hier liegt ein fettes Verständnisproblem vor. Völlig egal ob Delphi oder 
anderer Compiler:
Deine Deklaration ist keine Konstante, sondern eine initalisierte 
Variable. Eine Variable kannst Du erst zur Laufzeit auswerten und mit 
dem Wert rechnen, nicht während der Übersetzung. Konstanten werden mit 
const eingeleitet. Du kannst Konstanten auch typisieren.

Wie bereist richtig angemerkt, gibt es für Initialisierung extra einen 
Anweisungsblock. Und den nutzt man dann.