XProfan

Español

Hubert
Binnewies

¡Hola zusammen..

Kleines Problema..
Yo sería me gerne unos pocos Características escribir el me Programmieren a mi derzeitigen Projekt vereinfachen.
Das Blöde es sólo el Yo en el meisten Características mehrere Rückgabewerte habe.

Yo el Ayuda en Xprofan por y siempre sólo gesehen el uno RETORNO sólo una Valor zurück geben kann.

Oder tener Yo como qué übersehen?

¿Cómo se puede Yo mehrere Werte zurückgeben?

Gracias schonmal en el voraus.

Hubert

WinXP Prof, XProfan 9.1 Newbie

Ein kluger Kopf sagte mal:
"Nach dem derzeitigen Stand der Technik ist es unmöglich Programme zu schreiben, die fehlerfrei laufen!"

15.09.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

- Página 1 -

Hab hier todavía una Ejemplo, sin jegliche globale Variable. Simuliertes byRef

Kompilieren Marca Separación

Struct Long = l&

Proc Test1

    parameters a1&, a2&
    Declare B#
    Dim B#, Long
    B# = a1&
    B#.l& = 50  50 in c& von Test2 schreiben
    B# = a2&
    B#.l& = 100  100 in d& von Test2 schreiben
    Dispose B#  lokale Bereichsvariable wird nicht mehr gebraucht

EndProc

Proc Test2

    Declare c&, d&
    Test1 Addr(c&), Addr(d&)
    print "Wert von c& = " + Str$(c&) + "  d& = " + Str$(d&) + " in der Proc"

EndProc

Declare c&, d&
cls
Test2
Print
Print "Globales c& = " + Str$(c&) + "  Globales d& = " + Str$(d&) + " wurden nicht verändert!"
waitkey

Proc Test2 encima son el Pointer de c& y d& a Proc Test1, welche hay 50 y 100 como Rückgabe einträgt. Como uno siehst, no globalen Variables y Zona se auch igual disposed

Hoffe veces, el kann alguien gebrauchen

// Apéndice:
tener el código todavía algo erweitert, así uno sieht, el lo wirklich va

Hier otra vez sin Hilfsstructur, tener Yo garnicht dran pensamiento, el lo en Profano auch así va:
Kompilieren Marca Separación

Proc Test1

    parámetros a1&, a2&
    Declarar B#
    Dim B#,4
    B# = a1&
    Largo B#,0 = 50  50 en c& de Test2 escribir
    B# = a2&
    Largo B#,0 = 100  100 en d& de Test2 escribir
    Disponer B#  lokale Bereichsvariable se no mehr gebraucht

ENDPROC

Proc Test2

    Declarar c&, d&
    Test1 Addr(c&), Addr(d&)
    imprimir "Wert de c& = " + Str$(c&) + "  d& = " + Str$(d&) + " en el Proc"

ENDPROC

Declarar c&, d&
c& = 1
d& = 1
cls
Test2
Imprimir
Imprimir "Globales c& = " + Str$(c&) + "  Globales d& = " + Str$(d&) + " fueron no verändert!"
waitkey

Ist tal vez verständlicher

15.09.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Weils así schön es, todavía el einfachste Variante (tener así desafortunadamente bisher a wenig gemacht

)
Kompilieren Marca Separación

Proc Test1

    parameters a1&, a2&
    Long a1&,0 = 50
    Long a2&,0 = 100

EndProc

Proc Test2

    Declare c&, d&
    Test1 Addr(c&), Addr(d&)
    print "Wert von c& = " + Str$(c&) + "  d& = " + Str$(d&) + " in der Proc"

EndProc

Declare c&, d&
c& = 1
d& = 1
cls
Test2
Print
Print "Globales c& = " + Str$(c&) + "  Globales d& = " + Str$(d&) + " wurden nicht verändert!"
waitkey

15.09.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Ähem - Usted änderst doch nix más como valor de globalen Variables - y el auch todavía umständlich.

15.09.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

[quote:a6584bda33=iF]Ähem - Usted änderst doch nix más como valor de globalen Variables - y el auch todavía umständlich.

[/quote:a6584bda33]
El Variables en beiden Proc son lokal, Proc Test1 ändert el Variables de Test2, Gleichnamige Globale Variables bleiben auch obtener. Funktioniert así allerdings no con Cuerdas. Globale Variables voluntad no geändert

Yo übergebe el Pointer y mache una profanischen Poke

15.09.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Ne quatsch - Usted deklarierst zwei Globale - el änderst Usted en el Proc - mehr no. Su Code va no sin Globals el Usted nutzt.

Oder stehe Yo aufm Schlauch?

15.09.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

[quote:869f8d550b=iF]Ne quatsch - Usted deklarierst zwei Globale - el änderst Usted en el Proc - mehr no. Su Code va no sin Globals el Usted nutzt.

Oder stehe Yo aufm Schlauch?

[/quote:869f8d550b]
En me gehts::
Kompilieren Marca Separación

Proc Test1

    parameters a1&, a2&
    Long a1&,0 = 50
    Long a2&,0 = 100

EndProc

Proc Test2

    Declare c&, d&
    Test1 Addr(c&), Addr(d&)
    print "Wert von c& = " + Str$(c&) + "  d& = " + Str$(d&)

EndProc

Test2

15.09.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Ach ahora! Klar! Hab el Declarar en el zweiten Proc übersehen!

Thomas voluntad sagen, einfache el Adressen el Variables a una Proc transferencia, y el Variableninhalte por Largo ändern.

15.09.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Hubert
Binnewies

ööööööhmmmmmm.....

y si yo no numerischen Werte pero Cuerdas habe??

(no schlecht el Solución, kann Yo gebrauchen)

Saludo Hubert

WinXP Prof, XProfan 9.1 Newbie

Ein kluger Kopf sagte mal:
"Nach dem derzeitigen Stand der Technik ist es unmöglich Programme zu schreiben, die fehlerfrei laufen!"

15.09.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Rolf
Koch

Nur a Erweiterung:
Seit Ewigkeiten schlummert bajo propio Codes folgenders en meiner Página
Más como una Parámetro de uno Procedimiento zurückliefern - Neu (19.03.2003)

Man debería auch veces en meiner Página kucken *lol*

15.09.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

- Página 2 -

Frank
Abbing

[quote:caee46f7de]y si yo no numerischen Werte pero Cuerdas habe??[/quote:caee46f7de]
Setzt du Zeiger en Cuerdas.
El Listview.dll benutzt ya seit langer Tiempo para algunos Características el Technik, el Thomas gepost ha. Addressen de Variables como Parámetro. Allerhand APIs hacer lo genauso, z.B. OpenGL-APIs.

15.09.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Yo denke veces para longs es el con el Pointern ya Ideal, para strings es el nachträglich auseinandernehmen, como en Rolf su Página, o. de Roland angesprochen el einfachste Weg.

Yo persönlich mag nämlich no allzu gerne zuviele globale Variables, antes allem en grösseren Proyectos es el manchmal verhängnisvoll

Aber en el Endeffekt, zählt el Erfolg

15.09.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Frank
Abbing

Richtig. Yo denke auch, para Textos son Bereiche/Estructuras al besten geeignet.

15.09.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

◄