Variable beim Programmstart definieren

[herges]

Hallo ihr Hilfreichen Geister,
ich hab in meinem Programm folgende Zeile:

Delphi-Quellcode:

if (Richtung<>1) and (Richtung<>3) and (Richtung<>4) and (Richtung<>2) and (Richtung<>6) then

Ich hab diesen Scheißdreck, weil die Variable beim Programmstart ja nicht definiert ist.
Und mit dem kann ich nichts anfagen.
Die Variable wird direkt danach gesetzt, außer eine der Bedingungen trifft zu, dann wird die bestehende Variable einmal übernommen und bei dem nächsten Schleifendurchlauf erst wieder gesetzt.

Ich fage mich ob man die Variable irgendwo beim Programmstart setzen kann, z.B. auf 0.
Die Frage ist nur WO?

Danke im Vorraus
herges

[Matze]

Delphi-Quellcode:

var
  Form1: TForm1;
  Richtung: integer = 2;

implementation

{$R *.dfm}

NAchtrag: oder halt im OnCreate der Form.

[Synonym]

du kannst alle globalen variablen direkt bei der initialisierung durch z.B.

Delphi-Quellcode:

var
str : string = 'test';
i : intger = 0;

setzen

[Synonym]

da war wohl jemand schneller

[Sharky]

Hai herges,

ich schreibe mit für solche Sachen immer eine Procedure.

Delphi-Quellcode:

procedure TMyForm.VarInit;
begin
 var1 := 1;
 var2 := 'Hallo';
 .
 .
end;

In dem Form.Create Ereigniss rufe ich dann als erstes diese Procedure auf.

[Synonym]

aber wieso? du musst die variablen doch sowieso global deklarieren, wieso dann den umweg über die procedure?


synonym

[Sharky]

Zitat:

Zitat von Synonym

aber wieso?...

Weil ich, wenn es für das Programm notwendig ist, mit einem einzigen Aufruf alle Variablen auf die "Startwerte" setzen kann ohne das Programm neu zu starten.

Zugegeben; es ist am anfang etwas mehr tipparbeit. Aber später kann es sich gelohnt haben.

Zitat:

Zitat von Synonym

...du musst die variablen doch sowieso global deklarieren,..

Warum das denn? Ich habe in meinem Programmen so wenig globale Variablen wie möglich.

[herges]

Danke, werde ich gleich mal ausprobieren.

[schwa226]

Geht das für lokale Vars auch irgendwie?
Oder muss ich in der Prozedur dann erst den Wert zuweisen?

Bei C/C++ geht das ja recht einfach...

[himitsu]

Nein, für Lokal gibt es keine "vordefinierten Variablen".

Viele lokale Variablen werden nichtmal initialisiert. (Globale sind standardmäßig immer 0/nil)

PS: Es gibt auch noch den initialization-Abschnitt der Units, wo man Dinge initialisieren könnte ... wer hätt's gedacht :stupid:

PPS:

Zitat:

Delphi-Quellcode:

if (Richtung<>1) and (Richtung<>3) and (Richtung<>4) and (Richtung<>2) and (Richtung<>6) then

Delphi-Quellcode:

if ((Richtung < 1) or (Richtung > 4)) and (Richtung<>6) then
// oder
if not (Richtung in [1, 3, 4, 2, 6]) then
// oder einfach nur
if Richtung = 0 then