Satznummer eines Array

[Martin Altmann]

Tom,
nach Deiner Logik wäre auch dies ein mehrdimensionales Array:

Code: Alles auswählen

aArray := {} 
Aadd(aArray,'a')
Aadd(aArray,'b')
Aadd(aArray,'c')

Auch dieses Array hat zwei Dimensionen, aber in X-Richtung nur einen Eintrag

Viele Grüße,
der Korinthenkacker

[Tom]

Hallo, Freund Korinthe.

Sorry, aber Dein Array hat nur eine Dimension, wenn man es als Array mit referenzierten Elementen betrachtet. Da Du zufällig Strings in dieses Array gefüllt hast, geht natürlich ? aArray[1,1] (Antwort: a), aber mit numerischen Einträgen schon nicht mehr.

[Martin Altmann]

Mist - durchschaut

Viele Grüße,
Martin

[Manfred]

Hi,

noch eine kleine Frage hinterher und zwar hier, damit das Thema nicht in einem neuen Thread nochmals erklärt werden muß.

Habe ich denn eine Möglichkeit AEVAL() in meinem Fall mittendrin zu unterbrechen, wenn irgendwas in meiner Funktion nicht so ist, wie ich es wünsche? Normalerweise kann ich ja ein .F. zurückschicken, aber das alleine dürfte AEVAL() nicht vorzeitig beenden!?

[Tom]

Hallo, Manfred.

Du mußt den Zähler einfach auf die Länge des Arrays oder einen sehr hohen Wert setzen:

Code: Alles auswählen

AEval(aArray,{|a,i| i := rechungsdruck(a,i)})

FUNCTION rechnungsdruck(aElement,nPtr)
....
RETURN IF(lAbbruch,99999999,nPtr)

Da i nach Ausführung der Anweisung inkrementiert wird, dürfte das funktionieren.

BTW, AEval() übergibt bei Nutzung des ersten Codeblock-Parameters das Element. Wenn Du das gesamte Array in der aufgerufenen Funktion benötigst, mußt Du aArray übergeben, nicht a.

[Manfred]

Hi Tom,

nö, klappt so nicht.

[Rolf Ramacher]

Hi Manfred,

ich arbeite auch sehr viel mit Arrays. auch mit mehrdeminsionalen.
Diese benötige ich z.b. zum Drucken. Dies mache ich folgendermaßen:

for i = 1 to Len(Array)

GraStringAt(oPs, {100,900}, Array[1]
GraStringAt(oPs, {100,870}, Array[2]
usw.
Next i

Hier ist I mein "Record-Zähler". Damit kann ich dann auch bestimmen,
wenn bei einer gewissen Satzzahl etwas passieren soll.

So zur Info.

[Manfred]

Hi,

hat sich alles erledigt, ich habe erstmal AEVAL gegen For next ersetzt, jetzt kann ich es so machen, wie ich will.

[brandelh]

Hallo Tom,

Das hier ist Blödsinn:

Code: Alles auswählen

AEVAL(aKunde,{|aKunde| rechnungsdruck(aKunde)})

die Doppelverwendung des aKunde ist sicher verwirrend, aber es funktioniert ! Das erste aKunde enthält das ganze Array, übergeben wird an diesen Codeblock mit gleichem Namen wie das ursprüngliche Array nur die aktuelle Zeile des ursprünglichen Arrays.
Gleiche Variablennamen im jeweiligen local Umfeld.

etwa so

111
222 -> 222
333

So ist es sinnreicher:

Code: Alles auswählen

AEVAL(aKunde,{|a,i| rechnungsdruck(a[i])})

den 2. Parameter als Array Laufvariable hatte ich noch nie gesehen.
Werde ich mir merken ,
aber diesen dann bei a zu verwenden, welches ja nur eine Zeile von aKunde ist, ist ein Tippfehler.
Entweder
-> rechnungsdruck(aKunde,i)
oder besser
-> rechnungsdruck(a,i)

[brandelh]

Hi,
hat sich alles erledigt, ich habe erstmal AEVAL gegen For next ersetzt, jetzt kann ich es so machen, wie ich will.

Hi Manfred,

aEval() ist gegenüber For / Next deutlich schneller, aber nicht immer so leicht zu durchschauen
Mit for next ist man auf der sicheren Seite

[Manfred]

Hi Hubert,

das habe ich mittlerweile auch schon spitz gekriegt. Das problem ist halt, wie unterbricht man es , wenn man wie bei mir eine Funktion aufrufen will, die auch ein .F. zurückliefern kann. Bleibt im Moment nur For next.

[Tom]

Hallo, Manfred.

So dürfte es gehen:

Code: Alles auswählen

lWeitermachen := .T.
AEval(aArray,{|a,i| IF(lWeiterMachen,lWeitermachen := rechungsdruck(a,i),NIL)})

FUNCTION rechnungsdruck(aElement,nPtr)
....
RETURN lAbbruch

Das durchläuft die Schleife zwar i Male, macht aber ab dem Moment, in dem "rechnungsdruck" .F. zurückliefert, nichts mehr, außer bis zum Ende zu zählen.

[Manfred]

Hi Tom,

das werde ich mal probieren, das sieht mir recht schlau aus.

[brandelh]

Hi,

jetzt muß ich doch mal fragen, woher ihr wißt, dass z.B. ein .f. als Rückgabewert bei der AEVAl() Funktion diese abbricht.
In der Doku kann ich dazu nix finden.
Mit Müh und not kann man unten aus einem Beispiel den 2. Parameter erkennen

[Rolf Ramacher]

Hi Manred,

wenn du die For-Next Schleife durchläufst kannst du die Schleife mit Exit beenden. Dann wird das Programm weiter verarbeitet mit dem nächsten Befehl nach Next.