---

Hallo Makro-Programmierer,

Eine selbst geschriebene Funktion kann keinen Funktionswert
zurückgeben, wenn ich das richtig verstanden habe.

Hat jemand einen Trick auf Lager wie sich das doch
hinbiegen lässt.

Viele Grüsse
Reiner

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

hallo,
eine Frage zur Makroprogrammierung... da lacht das Herz

DEFINE Haupt
  local abc
  let abc (funkt 17)
  display (abc
END_DEFINE

DEFINE Funkt
  parameter xy
  SIN 17
END_DEFINE

so klappt es.
Du hast sicher die Funktion umfangreicher geschrieben.

DEFINE Funkt_so_nicht
  parameter xy
  local xyz
  let xyz (xy+4)
  SIN xy
END_DEFINE

Als Notnagel mache ich es immer so...

DEFINE Haupt
  local abc
  Funkt_2 17
  let abc (Funkt_2_glob)
  delete_macro Funkt_2_glob end
  display abc
END_DEFINE

DEFINE Funkt_2
  parameter xy
  local m
  let m (xy * 5)
  let funkt_glob (SIN m)
END_DEFINE

So einfach geht das. Allerding ungetestet jetzt über die Tastatur gehüpft, hoffe dass kein Fehler drin ist. Viel Spass noch.

------------------
Grüsse aus dem Schwarzwald  
www.Andreas-Baumgartner.de

[Diese Nachricht wurde von baumgartner am 14. Januar 2003 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von Reiner:
Hallo Makro-Programmierer,

Eine selbst geschriebene Funktion kann keinen Funktionswert
zurückgeben, wenn ich das richtig verstanden habe.

Hat jemand einen Trick auf Lager wie sich das doch
hinbiegen lässt.

Viele Grüsse
Reiner

---

Morgen Reiner,

prinzipiell kannst Du in Makros Returnwerte zurückgeben - allerdings nur mit großen Einschränkungen: es dürfen nur Funktionen, also quasi nur Berechnungen, in diesem Makro vorhanden sein, und es darf nicht mal eine Zuweisung drin sein.

Möglich sind also Makros wie:

DEFINE Addieren
  PARAMETER A
  PARAMETER B
  (A+B)
END_DEFINE

{Aufruf:}  LET Summe Addieren A B
          DISPLAY (Addieren A B)

Möglich sind natürlich jede Menge Schleifen und IF-Konstrukte - Du musst allerdings aufpassen, dass immer genau EIN Wert "zurückgegeben" wird:

DEFINE Tabellenwert
  PARAMETER Ltab
  PARAMETER Zeile
  PARAMETER Spalte
  IF (Zeile > 0)
    (READ_LTAB Tabelle Zeile Spalte) {Inhalt dieses Feldes wird "zurückgegeben"}
  ELSE
    "Fehler"    {String  "Fehler" wird zurückgegeben}
  END_IF
END_DEFINE

(quick, dirty & untested - wie immer  )

Du musst halt etwas testen, um rauszufinden, was möglich ist ...

Gruß aus Österreich,
Hannes

------------------
jo mei.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Andreas, Hallo Hannes,

vielen Dank für die schnelle Antwort. Das ging ja wirklich flott.

Ich komme mit beiden Lösungen von Euch zum Ziel.
Man lernt doch immer wieder was dazu.

Viele Grüße
Reiner

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP