Warnung vom Compiler (schnelle Hilfe wär nett ;) )

cubus · Hält's aus hier Beiträge: 2 win98 D6 Pers.

Hab jetzt schon die Suche durchforstet und gegoogled aber etwas genau passendes hab ich nicht gefunden... (zumindest nichts dass mir erklärt warum und warum nicht...genaueres nach dem folgenden qt)

markieren

Delphi-Quelltext

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

procedure TForm4.Button7Click(Sender: TObject);
var  zahl1 , zahl2 ,  ergebnis: real;
label l1;
begin

 if Edit11.Text='' then goto l1 else if Edit12.Text='' then goto l1 else
                zahl1 :=StrToInt (Edit11.Text);
                zahl2 :=StrToInt (Edit12.Text);
                ergebnis := sqrt( zahl2 * zahl1);
                Edit14.Text:=FloatToStr(ergebnis)             ;

        exit;
l1:
Edit14.Text:='blah';
end;

(l1 hab ich abgeändert...)
Das was dort oben von if bis exit steht hab ich ...kA 20 weitere male (oder so) in der Unit aber nur 2mal bekomme ich vom Compiler die Warnung "Variable 'XYZ' might not have been initialized".
Ich kopier den Teil der Funktion immer nur und veränder dann darin die Zahlen der Editboxen bzw. die Rechenformel.
Warum bekomme ich nur 2mal die Warnung?? O.o
Im voraus schonmal danke für die Hilfe, wär nett wenn mir heute noch jemand helfen würde, da ich das Projekt morgen in der Schule vorstellen muss..mfg

I.MacLeod · Beiträge: 109

1. Warum benutzt du da goto? Allgemein gilt: goto vermeiden, wenn möglich, da sonst :nut:

2. ein normales "else" gilt nur für einen Befehl. Ein begin-end Block um die vier Zeilen sollte das Problem lösen.

Sprint · Beiträge: 849

markieren

Delphi-Quelltext

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

procedure TForm1.Button7Click(Sender: TObject);
var
  Zahl1, Zahl2, Ergebnis: Double;
begin

  if (Edit11.Text = '') or (Edit12.Text = '') then
    Edit14.Text := 'blah'
  else begin
    Zahl1 := StrToIntDef(Edit11.Text, 0);
    Zahl2 := StrToIntDef(Edit12.Text, 0);
    Ergebnis := Sqrt(Zahl1 * Zahl2);
    Edit14.Text := FloatToStr(Ergebnis);
  end;

end;

_________________
Ciao, Sprint.

Keldorn · Verfasst: Do 06.01.05 19:57

mach dich mal mit if und der bedingung <> sowie mit dem generellen Syntax von if vertraut, insbesondere, wann du teile in begin und end setzten mußt. und goto verwendet man gar nicht gern.

markieren

Delphi-Quelltext

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

 
  if (Edit11.Text<>'') and (Edit12.Text<>'') then 
    begin
      zahl1 :=StrToInt (Edit11.Text);  
      zahl2 :=StrToInt (Edit12.Text);  
      ergebnis := sqrt( zahl2 * zahl1);  
      Edit14.Text:=FloatToStr(ergebnis);  
    end  
   else Edit14.Text:='blah, keine werte eingetragen';

letztenendes kannst du dir die ganzen variablen auch noch sparen

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

 
  if (Edit11.Text<>'') and (Edit12.Text<>'') then 
    Edit14.Text:=FloatToStr(sqrt( StrToInt (Edit12.Text) * StrToInt (Edit11.Text))    );  
   else
    Edit14.Text:='blah, keine werte eingetragen';

die Warnung erhälst du, weil du die begin und end vergessen hast. nur zahl1 steht in einer If-Abfrage, und würde evtl nicht mit einem wert belegt, das ist der grund der warnung.

_________________
Lükes Grundlage der Programmierung: Es wird nicht funktionieren.
(Murphy)

cubus · Hält's aus hier Beiträge: 2 win98 D6 Pers.

Danke für eure schnellen Antworten...
Ich hab jetzt mal Sprints Version genommen (hätte ich gewusst dass goto so verpöhnt is hätte ich das was nach dem Label kam noch mitgepostet ) und nun bekomm ich den Rest nichtmehr rein.
(das nach dem Label sieht genauso aus wie mein Code von eben :/ )
Hier der Code:

markieren

Delphi-Quelltext

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

 if Edit10.Text=''
        then Edit8.Text:='Größe fehlt'
        else if Edit11.Text='' then Edit8.Text:='Größe fehlt' else
                zahl1 :=StrToInt(Edit10.Text);
                zahl2 :=StrToInt(Edit11.Text);
                ergebnis := sqrt(sqr(zahl2) - sqr(zahl1) )  ;
                Edit14.Text:=FloatToStr(ergebnis)             ;

Danke nochmals für eure Hilfe

Keldorn · Verfasst: Do 06.01.05 20:31

und du hast nichts verstanden :roll:

, das begin und end fehlt z.B. immer noch

_________________
Lükes Grundlage der Programmierung: Es wird nicht funktionieren.
(Murphy)

Popov · Verfasst: Do 06.01.05 23:05

Keldorn hat folgendes geschrieben:

und du hast nichts verstanden :roll:

, das begin und end fehlt z.B. immer noch

Wieso? Das merkt er spätestens wenn zahl2, ergebnis und Edit4.Text falsche Werte haben werden :twisted:

_________________
Popov

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme