Operatorproblem

[Andesdaf]

Hallo!

Code: Alles auswählen

Procedure Wert1 (W1.s)
  ProcedureReturn Val(W1)
EndProcedure

Procedure Wert2 (W2.s)
  ProcedureReturn Val(W2)
EndProcedure

Procedure Werti1 ()
  ProcedureReturn 1
EndProcedure

Procedure Werti2 ()
  ProcedureReturn 2
EndProcedure


wert.i = 0
werti.i = 0

For i = 1 To 10
  wert + Wert1("1")*100 + Wert2("2")*50
  werti + Werti1()*100 + Werti2()*50
Next

Debug wert
Debug werti

Müsste doch eigentlich dasselbe rauskommen, oder?
werti stimmt, wert nicht.

Unter PB 4.2 ist es richtig.

[ts-soft]

> Müsste doch eigentlich dasselbe rauskommen, oder?
ja, ist ein Bug, der in ähnlicher Form bei mehreren Stringoperationen kommt.

Abhilfe wäre sauberes Coding:

Code: Alles auswählen

Procedure Wert1 (W1.s)
  Protected result = Val(W1)
  ProcedureReturn result
EndProcedure

Procedure Wert2 (W2.s)
  Protected result = Val(W2)
  ProcedureReturn result
EndProcedure

Procedure Werti1 ()
  ProcedureReturn 1
EndProcedure

Procedure Werti2 ()
  ProcedureReturn 2
EndProcedure


wert.i = 0
werti.i = 0

For i = 1 To 10
  wert + Wert1("1")*100 + Wert2("2")*50
  werti + Werti1()*100 + Werti2()*50
Next

Debug wert
Debug werti

[Andesdaf]

danke. wusste nicht, dass das bei ProcedureReturn nicht sauber ist.

[ts-soft]

danke. wusste nicht, dass das bei ProcedureReturn nicht sauber ist.

Das sag ich so, in PB ist das eigentlich ok, aber da andere Sprachen sowas
meist auch nicht unterstützen, mache ich es lieber auf nummer sicher

[Andesdaf]

wenn es so geht und der Bug anscheinend bekannt ist, ist das Problem ja
aus dem Weg geschafft und eine Lösung vorhanden.

[ts-soft]

Den Bug sollteste schon im engl. melden, ist ja einer.
Aber als besonders wichtig würde ich den nicht einstufen.

[hjbremer]

bleibt trotzdem ein Bug finde ich

denn Debug Wert1("1") gibt korrekt 1 zurück

wenn man es so macht

Code: Alles auswählen

wert.i = 0 
werti.i = 0 

For i = 1 To 10 
  a = Wert1("1")*100
  b = Wert2("2")*50
  wert + a + b 
  werti + Werti1()*100 + Werti2()*50 
Next 

Debug wert 
Debug werti

funktioniert es

In 4.2 hat es noch funktioniert, da wurde wert + Wert1("1")*100 + Wert2("2")*50 korrekt ausgewertet

[Kaeru Gaman]

wurde das nicht schon längst gemeldet?

das ist ein ganz allgemeines Problem mit der direkten Verwendung von Rückgabewerten,
egal ob in ProcedureReturn, oder in anderen Zusammenhängen.

[ts-soft]

@Andesdaf
Du hast im engl. die funktionierende Version von mir gepostet, wie soll Fred
so den Fehler sehen, bring das mal in Ordnung, bitte

[Andesdaf]

oh, habe ich jetzt korrigiert.

Und wie ts schon gesagt hab, im engl. Forum gepostet.

[Konnte es mir nicht nehmen lassen, auch im engl. Forum die Schweine aufzusuchen]