4D Doc Center : RESOLVE POINTER

Home

4D v14.3

RESOLVE POINTER


RESOLVE POINTER ( Zeiger ; Name ; TabNum ; FeldNum )

Parameter	Typ	Beschreibung
Zeiger	Zeiger	Zeiger für den das referenzierte Objekt gefunden werden soll
Name	String	Name der referenzierten Variablen oder leerer String
TabNum	Lange Ganzzahl	Ziffer der referenzierten Tabelle bzw. Arrayelemente oder 0 oder -1
FeldNum	Lange Ganzzahl	Ziffer des referenzierten Feldes oder 0

Beschreibung

Der Befehl RESOLVE POINTER findet die Information des referenzierten Objekts über Zeiger und gibt ihn in den Parametern VarName, TabNum und FeldNum zurück.

RESOLVE POINTER gibt je nach Art des referenzierten Objekts folgende Werte zurück:

Referenziertes Objekt	Parameter
	VarName	TabNum	FeldNum
None (Zeiger NIL)	"" (leerer String)	0	0
Variable	Name der Variablen	-1	0
Array	Name des Array	-1	0
Array Element	Name des Array	Elementnummer	0
Tabelle	"" (leerer String)	Tabellennummer	0
Feld	"" (leerer String)	Tabellennummer	Feldnummer

Hinweis: Ist der in Zeiger übergebene Wert kein Zeigerausdruck, tritt ein Syntaxfehler auf.
RESOLVE POINTER kann nicht für Zeiger auf lokale Variablen verwendet werden.

Beispiel 1

Sie erstellen in einem Formular eine Gruppe von 100 eingebbaren Variablen, bezeichnet mit v1, v2... v100. Dazu führen Sie folgendes aus:

a. Erstellen Sie eine eingebbare Variable mit der Bezeichnung v.

b. Legen Sie die Eigenschaften des Objekts fest.

c. Weisen Sie diesem Objekt folgende Methode zu:

DoSomething(Self) ` DoSomething ist eine Projektmethode in Ihrer Datenbank

d. An dieser Stelle können Sie nun entweder die Variable so oft wie benötigt duplizieren oder das Symbol für Matrix im Formulareditor verwenden.

e. Müssen Sie den Index der Variablen wissen, für den die Methode aufgerufen wurde, schreiben Sie in der Methode DoSomething:

 RESOLVE POINTER($1;$vsVarName;$vlTableNum;$vlFieldNum)

 $vlVarNum:=Num(Substring($vsVarName;2))

Bauen Sie Ihr Formular auf diese Weise auf, schreiben Sie die Methoden für die 100 Variablen nur einmal; Sie müssen nicht schreiben DoSomething (1), DoSomething (2)...,DoSomething (100).

Beispiel 2

Zur Fehlerbehebung müssen Sie prüfen, ob der zweite Parameter ($2) einer Methode ein Zeiger auf eine Tabelle ist. Zu Beginn dieser Methode schreiben Sie:

  ` ...

 If(◊DebugOn)

    RESOLVE POINTER($2;$vsVarName;$vlTableNum;$vlFieldNum)

    If(Not(($vlTableNum>0)&($vlFieldNum=0)&($vsVarName="")))

  ` WARNUNG: Der Zeiger ist keine Referenz auf eine Tabelle

       TRACE

       End

    End if

  ` ...

Beispiel 3

Siehe Beispiel zum Befehl DRAG AND DROP PROPERTIES.