Fehler bei der Bestimmung der Variablen!

delphineuling · Beiträge: 113 XP wat dat

hab einen fehler und weiß nicht was das heißt:
Variable 't' wurde möglicherweise nicht intialisiert

Delphi-Quelltext

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

procedure TForm1.StartClick(Sender: TObject);
var t: integer;
begin
label8.caption:=inttostr(t);
t:=strtoint(edit5.text);
end;
begin
if listbox1{hier ist der fehler angezeigt}.Items.Count=0
   then showmessage('Geben Sie bitte Namen ein!')
   else if listbox4.items.Count=0
        then showmessage('Geben Sie Mengenangaben ein!')
        else if listbox2.items.Count=0

Marc. · Verfasst: Do 16.03.06 16:35

schreib mal

markieren

Delphi-Quelltext

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

...
var t: integer;
begin
t := 0;
label8.caption:=inttostr(t);
...

starsurfer · Verfasst: Do 16.03.06 16:36

markieren

Delphi-Quelltext

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

procedure TForm1.StartClick(Sender: TObject);  
var t: integer;  
begin  
label8.caption:=inttostr(t);  
t:=strtoint(edit5.text);  
end;

du deklarierst dein t lokal... was bedeutet es kann so gut wie jeden wert haben und dann benutzt du es gleich... und das sagt er dir...

//EDIT: da wahr wohl einer schneller
//EDIT2: [ highlight]var t: integer; [ /highlight] <<< für de Admins:wird falsch gehighlighted

_________________
GEIZ IST GEIL! - Ihr Sozialamt

Marc. · Verfasst: Do 16.03.06 16:41

achja noch eine frage:
seit verwendet man 2x end; begin in einer prozedur?
zumindest in deiner prozedur macht das keinen sinn!

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

begin
label8.caption:=inttostr(t);
t:=strtoint(edit5.text);
end; // weg damit!
begin // weg damit!
if listbox1{hier ist der fehler angezeigt}.Items.Count=0
   then showmessage('Geben Sie bitte Namen ein!')
   else if listbox4.items.Count=0
        then showmessage('Geben Sie Mengenangaben ein!')
        else if listbox2.items.Count=0

und noch eine frag: hier ist der fehler angezeigt.. heißt es nicht hier wird der fehler angezeigt?

delphineuling · Beiträge: 113 XP wat dat

wie jetzt?
und wie muss ich das jetzt ändern damit es geht ich kann da ja nicht einfach eine 0 hinter schreiben dann steht da der wert wird niemals benutzt.
und wenn ich anstatt null so mache:

markieren

Delphi-Quelltext

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

procedure TForm1.StartClick(Sender: TObject);
var t: integer;
begin
t:=strtoint(edit5.text);
label8.caption:=inttostr(t);
end;
begin
if listbox1.Items.Count=0
   then showmessage('Geben Sie bitte Namen ein!')
   else if listbox4.items.Count=0
        then showmessage('Geben Sie Mengenangaben ein!')
        else if listbox2.items.Count=0

Dann steht da für listbox1, 2 und 3 undefinierter bezeichner

Miri · Beiträge: 657 Delphi 3 Prof., Delphi 2005 PE

is ja klar... vorher hat dein prog an der stelle mit dem t angehalten, das passt jetzt, also läuft der debugger weiter...
dann merkt er "hey, die prozedur is da ja zu ende!" (wie NoTVerYEvilPzYchO schon sagte), und dann fängt ne neue an... lass das end; und das begin, was NoTVerYEvilPzYchO markiert hat, weg, dann läuft die prozedur auch durch...

delphineuling · Beiträge: 113 XP wat dat

ja hab das jetzt weggemacht und das programm startet nur wenn ich dann auf den button klicke kommt dieses fenster mit dem fehler und so und es kann nicht mehr weiter laufen

ich adde mal die ganze procedure

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:

procedure TForm1.StartClick(Sender: TObject);
var t: integer;
begin
   t:=strtoint(edit5.text);
   label8.caption:=inttostr(t);

if listbox1.Items.Count=0
   then showmessage('Geben Sie bitte Namen ein!')
   else if listbox4.items.Count=0
        then showmessage('Geben Sie Mengenangaben ein!')
        else if listbox2.items.Count=0
             then showmessage('Geben Sie Getränke ein!')
             else if listbox3.items.Count=0
                  then showmessage('Geben Sie Kurze ein!')

   else if (radiobutton1.Checked=false) and (radiobutton2.Checked=false) and (radiobutton3.Checked=false) then showmessage ('Bitte die Häufigkeit auswählen!')

   else begin
     Timer1.Enabled:=True;
     edit5.Color:=clred;
   end;
end;

Miri · Beiträge: 657 Delphi 3 Prof., Delphi 2005 PE

delphineuling hat folgendes geschrieben:

ja hab das jetzt weggemacht und das programm startet nur wenn ich dann auf den button klicke kommt dieses fenster mit dem fehler und so und es kann nicht mehr weiter laufen

Was für ein Fehler kommt denn da? Und an welcher stelle bleibt das Programm stehen?

Und mal am Rande: Interpunktion hilft ungemein...

Christian S. · Beiträge: 20451 Erhaltene Danke: 2264 Win 10 C# (VS 2019)

Hallo, delphineuling!

Bitte ändere den Titel Deines Threads. Im Moment lässt er einen ziemlich im unklaren, worum es hier geht. Danke! :-)

Grüße
Christian

_________________
Zwei Worte werden Dir im Leben viele Türen öffnen - "ziehen" und "drücken".

delphineuling · Beiträge: 113 XP wat dat

habs schon selbst rausgefunden aloles ok kann gelöscht werden

Christian S. · Beiträge: 20451 Erhaltene Danke: 2264 Win 10 C# (VS 2019)

Dieses Forum ist nicht nur dazu da Dir zu helfen, sondern anderen auch. Weil das Problem für Dich klar ist, heisst das nicht, dass dieser Thread nicht anderen auch helfen kann. Er bleibt also stehen.

Und ändere bitte auch noch den Titel.

_________________
Zwei Worte werden Dir im Leben viele Türen öffnen - "ziehen" und "drücken".

Anarkids · Verfasst: Fr 17.03.06 09:48

schade eigentlich. hätte gern mal deine lösung dazu gesehn ;-)

delphineuling · Beiträge: 113 XP wat dat

das propem war das es kein integer wert war sonder ein TdateTime wert deshalb kam der fehler

Logikmensch · Beiträge: 390 Win XP Delphi 2007 Prof., XE2, XE5

Hallo delphineuling,

ich kann Dir dringend empfehlen, Dir mal ein paar Delphi-Grundlagen-Bücher zuzulegen. Ohne Dich jetzt fertigzumachen, natürlich. Sind echt nicht alle super teuer. Es gibt auch günstige Alternativen. So manche Fragen, die Du jetzt hast, klären sich dann (später) ganz wie von selbst. Z.B. solche Strukturfehler wie die doppelten Begin und End's wären Dir dann sicher erspart geblieben.

Ist nur ein Rat - wir haben ja alle irgendwann damit angefangen.

Liebe Grüße,

Claus.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme