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 


 Foren-Liste  |  Zur Registrierung 
 Benutzerlogin
 Benutzername:
 Passwort:
 Login-Daten speichern:
   
 Passwort vergessen?
E-Mail-Adresse oder Username unten eingeben. Dann wird Dir per e-Mail ein neues Passwort zugeschickt.

phorum.org