Probleme mit VAL Funktion

**AJ_Oldendorf**

Hallo zusammen,
habt ihr das Problem schonmal folgendes Problem gehabt:

Delphi-Quellcode:

			procedure TForm1.FormCreate(Sender: TObject);

var

  tmpDouble : Double;

  z : Integer;

begin

  Val('', tmpDouble, z);

  if z = 0 then

    ShowMessage('Mist');

end;

Bei einem Kollegen ist z=0 und bei mir ist z=1.
Habt ihr eine Idee, woran das liegen kann.
Beides Win7 32bit.
Viele Grüße
Alex

**Neutral General**

Hallo,

Ich schätze mal einfach, dass die Funktion Val bei Misserfolg gar nichts in z reinschreibt.
Und in lokalen Variablen kann potentiell ALLES stehen wenn sie nicht initialisiert sind.

Steht denn bei euch beiden das Gleiche drin wenn du den Code so änderst?

markieren

Delphi-Quellcode:

			var

  tmpDouble : Double;

  z : Integer;

begin

  z := 0;

  Val('', tmpDouble, z);

  if z = 0 then

    ShowMessage('Mist');

PS: Es gibt auch StrToIntDef!

markieren

Delphi-Quellcode:

			var

  z : Integer;

begin

  z := StrToIntDef('',0);

  if z = 0 then

    ShowMessage('Mist');

**DeddyH**

Wobei hier wohl TryStrToInt die bessere Option wäre, aber das prüft intern auch mit Val.

**himitsu**

Z gibt die Fehlerstelle an (so wie es in der OH auch erklärt ist)

kein Fehler = 0
Fehler > 0

Zitat:

Bei einem Kollegen ist z=0 und bei mir ist z=1.

Dein Kollege gibt vermutlich eine gültige Zahl (den String) an.
Und du nicht. 1 = Fehler an erster Stelle, was bei dir das Stringende ist, da du "nichts" übergeben hast.

Zitat:

markieren

Delphi-Quellcode:

			if z = 0 then

  ShowMessage('Mist');

PS: z=0 istr kein Mist ... es ist gut, da 0 = kein Fehler

**AJ_Oldendorf**

Problem gefunden!
Ein nicht installiertes SP3 (UpdatePack3) von RAD2009 führt zu dem Fehler.
Mit dem UpdatePack3 ist der Fehler behoben im VAL.

Ist also wirklich ein Bug gewesen...

Viele Grüße
Alex

**himitsu**

Bei dir ist Z jetzt 0? (in dem Beispiel aus Post #1)

Dann hast du jetzt einen Bug eingebaut, denn die 1 war schon richtig.

**jfheins**

Zitat von himitsu:

Bei dir ist Z jetzt 0? (in dem Beispiel aus Post #1)

Dann hast du jetzt einen Bug eingebaut, denn die 1 war schon richtig.

Das kommt wohl darauf an, ob man einen leeren String als gültige Zahl erachtet.

Da aber ja heutzutage kein vernünftiger Programmierer auf die Idee käme, Val() in einem neuen Code zu benutzen (

) dürfte die Abwärtskompatibilität das richtige Verhalten definieren. Und diese wurde wohl mit dem Update wiederhergestellt

=>

http://www.bobswart.nl/weblog/Blog.aspx?RootId=5:3219

**himitsu**

Bei mir sagen D7 und XE was von 1.

Probleme mit VAL Funktion

Probleme mit VAL Funktion

AW: Probleme mit VAL Funktion

AW: Probleme mit VAL Funktion

AW: Probleme mit VAL Funktion

AW: Probleme mit VAL Funktion

AW: Probleme mit VAL Funktion

AW: Probleme mit VAL Funktion

AW: Probleme mit VAL Funktion

Forumregeln

DeddyH Registriert seit: 17. Sep 2006 Ort: Barchfeld 27.541 Beiträge Delphi 11 Alexandria	#3 AW: Probleme mit VAL Funktion 12. Apr 2011, 12:51 Wobei hier wohl TryStrToInt die bessere Option wäre, aber das prüft intern auch mit Val. Detlef *"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen."* (Albert Einstein) Dieser Tag ist längst gekommen
	Zitat

AJ_Oldendorf Registriert seit: 12. Jun 2009 Ort: Stadthagen 384 Beiträge Delphi 10.3 Rio	#5 AW: Probleme mit VAL Funktion 12. Apr 2011, 13:06 Problem gefunden! Ein nicht installiertes SP3 (UpdatePack3) von RAD2009 führt zu dem Fehler. Mit dem UpdatePack3 ist der Fehler behoben im VAL. Ist also wirklich ein Bug gewesen... Viele Grüße Alex
	Zitat

himitsu Registriert seit: 11. Okt 2003 Ort: Elbflorenz 43.142 Beiträge Delphi 12 Athens	#6 AW: Probleme mit VAL Funktion 12. Apr 2011, 13:24 Bei dir ist Z jetzt 0? (in dem Beispiel aus Post #1) Dann hast du jetzt einen Bug eingebaut, denn die 1 war schon richtig. Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher. my Delphi wish list : BugReports/FeatureRequests
	Zitat

himitsu Registriert seit: 11. Okt 2003 Ort: Elbflorenz 43.142 Beiträge Delphi 12 Athens	#8 AW: Probleme mit VAL Funktion 12. Apr 2011, 14:59 Bei mir sagen D7 und XE was von 1. Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher. my Delphi wish list : BugReports/FeatureRequests
	Zitat