phorum - 2 - PROFAN-Programmierung - Fehler bei String-Übergabe

Das OFFIZIELLE PROFAN SUPPORT FORUM

Einsteigerfragen

PROFAN-Programmierung

Helfer & Tools

Anregungen & Vorschläge

PROFAN-NEWS

Die Regeln!

2 - PROFAN-Programmierung

Neues Thema | Zur Übersicht | Suchen | Einloggen

Neuerer Beitrag | Älteres Thema

Fehler bei String-Übergabe

Autor: Karl-Jürgen Hilger (---.dyn.telefonica.de)
Datum: 06.02.19 20:26

Hallo,

kann jemand den folgenden Fehler bestätigen? (XProfan X4a)
Ich übergebe ein kleingeschriebenes Wort an eine Prozedur, aber diese erhält das Wort in Großschreibung!

In meinem Beispiel erstelle ich bewußt ein kleines Array gleicher Objekte,
denn bei einer Prozedur eines einzelnen Objekts passiert der Fehler offenbar nicht.

Gruß
KJ

 Class test = x&, Math@
 Proc test.Math
   Parameters String anweisung
   Select anweisung
     CaseOf "ADD"
       .x& = .x& + 1111
       Print "Es wurde auf 'ADD' reagiert."
       Print "Übergeben wurde aber 'add'"
 
     CaseOf "add"
       .x& = .x& + 9999
       Print anweisung; Tab(10); .x&
   EndSelect
 EndProc
 '-----------------------------------------
 Declare mem o[3]
 WhileLoop 0,3
   o[&loop] = New(test)
 EndWhile
 '-----------------------------------------
 
   CLS
   o[0].Math("add")
 
 waitinput
 Dispose o[]

Nachricht bearbeitet (06.02.19 20:30)

Beitrag beantworten

Re: Fehler bei String-Übergabe

Autor: Heinz Brill (---.dip0.t-ipconnect.de)
Datum: 07.02.19 10:01

Die neuen Variablen-Typen (ohne Postfix) funktionieren
bei Klassen und Strukturen immer noch nicht.

Also bitte Variablen mit Postfix benutzen :

 Class test = x&, math@
  Proc test.math
    Parameters anweisung$
    Select anweisung$
      CaseOf "ADD"
        .x& = .x& + 1111
        Print anweisung$; Tab(10); .x&
 
      CaseOf "add"
        .x& = .x& + 9999
        Print anweisung$; Tab(10); .x&
    EndSelect
  EndProc
  '-----------------------------------------
 
  Declare o#[3]
  
   WhileLoop 0,3
    o#[&loop] = New(test)
  EndWhile
 
 
    CLS
    o#[0].math("add")
    o#[1].math("ADD")
 
  waitinput
  dispose o#[]

Sowas müßte in der Hilfe auch Erwähnung finden.

H.Brill
XProfan X4 + FreeProfan

Nachricht bearbeitet (07.02.19 14:00)

Beitrag beantworten

Re: Fehler bei String-Übergabe

Autor: Karl-Jürgen Hilger (---.dyn.telefonica.de)
Datum: 07.02.19 14:46

Ja, vielen Dank, Heinz!

Es liegt tatsächlich allein an dem 'Declare mem o[3]', weil es ohne Postfix ist.
Und passiert auch nur bei String-Übergaben

Weil Du die Hilfe erwähnst:
Objektnamen ohne Postfix sind aber durchaus erlaubt, ganz im Gegensatz zu Eigenschaften von Strukturen und Klassen.
Steht auch so in der Hilfe.

Wenn Roland sich vielleicht meinen gemeldeten Kompilerfehler und das hier nochmal zur Brust nimmt, wäre ich mit meinem Objektkram eigentlch richtig zufrieden.

Danke nochmal fürs Nachschauen, Heinz!

Gruß
KJ

Beitrag beantworten

Foren-Liste | Baumstruktur

Neuerer Beitrag | Älteres Thema