[*]Profan

- Página 8 -

RGH

Hola si,
el artet entonces sí ya fast en una Stringlisten-Ersatz de.
Was Stringlisten betrifft, bin I, con me todavía nich einig, Yo esta realisiere. Geplant es ya!
Un Variante wäre en el Tat, Cuerdas como Stringlisten a behandeln. El otro Variante wäre, con hStrList& = Crear(List) Stringlisten a erzeugen y esta entonces con el bekannten Listenfunktionen (Addlist, InsertList, DeleteList, etc.) a bearbeiten. Su Función podría entonces z.B. todavía como SetList(hStrList&, N&, neuStr$) hinzugefügt voluntad.

Saludo
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

21.04.2006 ▲

Ragnar
Rehbein

hallo roland!

stringlisten wären en el moment el nr. 1 en meiner wunschliste.
gerade innerhalb de klassen sería el para el datenhaltung ungemein helfen (z.b. para el zwischenspeicherung de sql seleccionar -abfragen)
bisher Yo überwiegend listboxen eingesetzt, el aber etliche nachteile haben (conjunto una hauptfenster voraus y erzeugen bajo cierto SP de windows schutzverletzungen)

en diesem zusammenhang wäre una moven el profano listboxliste en el stringliste bien, oder todavía mejor una neuer sqlexec parameter de los ergebnis el abfrage direkt en un stringliste schiebt. (sqlexec seleccionar * from tabelle,4,hStrList&)

una vez más una otro frage. denkst du, el lo veces posible ser se en XProfan echte threadmöglichkeiten einzubauen ? bisher restos desafortunadamente sólo una externe DLL. auch con Profano2CPP es schwierig y producido teilweise merkwürdige fehler.

r.r.

21.04.2006 ▲

@Roland: Wow - media Usted algo como hier ( [...]

) sólo nativ y así más rápido?

@Ragnar: Yo glaube Roland debería entonces viele Características kapseln - Yo glaub el sería entonces desafortunadamente doch muy a Lasten el Abarbeitung ir.

Yo sería gerne en un otro Hilo encima Problemas de echten XProfanthreads mehr darüber erfahren si Usted ya Tests gemacht hast.

21.04.2006 ▲

Clemens
Meier

Einen Vorschlag hätte Todavía y yo glaube, él podría se auch realisieren dejar. Bajo XProfan es no posible, hinter una if, mientras que oder until una Wertzuweisung vorzunehmen, ya que en así manch otro Lenguaje de programación son. Also así algo como en PHP:

mientras que (file$ = readmyfile())
do something
wend

XProfan sería en el Fall prüfen, si el Inhalt de file$ el Rückgabewert el Función/Procedimiento readmyfile identisch es. XProfan hätte auch una Problema, el Diferencia zwischen Zuweisung y Vergleich a erkennen. Aber tal vez podría uno una speziellen Konstrukt uso, así lo XProfan doch posible es, porque una Zuweisung en el obigen Form erleichtert una doch muy el leben:

Möglicher Konstrukt para XProfan:
mientras que (file$) = readmyfile()
do something
wend

Also, el Variable es en uno eigenen Klammer, el Rest es offen. Das Mientras que bezieht se en el Klammer, el = se entonces como Zuweisungsoperator erkannt.

Oder uno führt el geschweifte Klammer una:
mientras que {file$ = readmyfile()} ...

XProfan podría el Inhalt el geschweiften Klammer como Zuweisung erkennen, war el Zuweisung <> 0 o. <> falso, o. <> NULL etc, wäre el Ausdruck verdadero.

XProfan 9.1; XP SP2; FF; Editpad

Frank
Abbing

Ersparniss: Un Línea...

RGH

[quote:228e80a12c=Clemens Meier]Also de wegen una Línea, el war wohl una wenig zuvoreilig geschrieben.[/quote:228e80a12c]
Völlig unabhängig de el Zeilenzahl kann dieses Konstrukt (Zuweisung innerhalb uno Ausdruckes) en XProfan ya deshalb no trabajo, porque el Zuweisung una Befehl es (auch si el Befehlswort LET en Anlehnung a BASIC weggelassen voluntad kann). Ein Befehl kann siempre sólo al Anfang uno Línea posición y eben no en un Ausdruck. Um Su Wunsch a realisieren, wäre Así que una bastante großer Eingriff en el innere Struktur de XProfan notwendig.

Saludo
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

Yo denke, lo va auch sin Zuweisung en el Ausdruck hinter WHILE o. WHILENOT. Und en manchen Fällen vermeidet auch el fußgesteuerte Bucle (REPEAT ... UNTIL Condición) überflüssige Programmzeilen.
Saludo
Roland

RGH

[quote:691298bdc0=Clemens Meier]
mientras que (file$ = readmyfile())
do something
wend[/quote:691298bdc0]
Das sería Yo en XProfan así escribir:
Kompilieren Marca Separación

!file$ = readmyfile()

while file$ <> ""

    do something
    file$ = readmyfile()

endwh

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

Clemens
Meier

[quote:3cf0fae77c=RGH]Um Su Wunsch a realisieren, wäre Así que una bastante großer Eingriff en el innere Struktur de XProfan notwendig.[/quote:3cf0fae77c]
Tja, en el Fall: Schade

XProfan 9.1; XP SP2; FF; Editpad

RGH

NACHTRAG: Grid wurde en el Parámetro Typ% erweitert, así dass auch hier nun una Sortierung y el Wahl zwischen Ein- y Mehrfachauswahl posible es! Auch Listbox y GridBox fueron entsprechend erweiter. (Siehe oben!)

[quote:67b0b14ced=Ragnar Rehbein]hallo roland! stringlisten wären en el moment el nr. 1 en meiner wunschliste.
r.r.[/quote:67b0b14ced]
¡Hola Ragnar, de el nächsten Subscriptionslieferung son ellos disponible:
Mit create(List, Typ%) se una stringliste producido, el con el gleichen Características bearbeitet voluntad kann, como con create(ListBox,...) erzeugten Listboxen. Beim Typ% es 1 para sortiert y 2 para Mehrfachauswahl. Diese Características puede kombiniert voluntad. (Sí, en XProfan puede Elemente uno Stringliste markiert voluntad, genau como en uno Listbox!)
Ein Beispielcode;
Kompilieren Marca Separación

! Programm listtest.prf
Declare hSL&
Cls
1. Stringliste erstellen
Typ 3 = Sortiert und Mehrfachauswahl
hSL&   = Create("List", 3)
2. hier werden der String-Liste Zeilen hinzugefügt
AddString(hSL&, "AB")
AddString(hSL&, "GHI")
AddString(hSL&, "|")
AddString(hSL&, "STUV")
AddString(hSL&, "ABCD12STUVW")
AddString(hSL&, "ABCD34stuvw")
AddString(hSL&, "Abcd45STUVW")
AddString(hSL&, "Abcd56StUVW")
AddString(hSL&, "Abcd56AbxVW")
AddString(hSL&, "Abcd67STUVW")
InsertString(hSL&, 5, "Hugo was here")
3. Stringliste ausgeben

WhileLoop 0, GetCount(hSL&)-1

    Print GetString$(hSL&, &loop)

EndWhile

Print "--------------"
4. Strings auswählen
Print SelectString(hSL&, -1, "Hugo")
Print SelectString(hSL&, -1, "GHI")
5. Jetzt auswerten
Print Str$(GetSelCount(hSL&)) + "/" + Str$(GetCount(hSL&))

WhileLoop 0, GetCount(hSL&)-1

    If GetState(hSL&, &loop) > 0

        Print GetString$(hSL&, &loop)

    EndIf

EndWhile

WaitInput
End

Aber el es todavía no alles!

Lo son nun auch Stringgrids, el mehrere Spalten haben puede. Erzeugt voluntad ellos con create(Grid, Spalten%, Typ%). Der Typ% ha el gleiche Función como en List. (Das Gridcontrol el letzten Lieferung wurde dafür en GridBox umgetauft, qué eh mejor a ListBox, ChoiceBox y EditBox paßt.). Auch hier trabajo todos Características, el auch en uno GridBox trabajo. Ein Ejemplo:
Kompilieren Marca Separación

! Programa gridtest.prf
Declarar X%, Feld$
Declarar hGrid&
Cls
1. String-Grid redactar
Typ 2 = Mehrfachauswahl
hGrid&   = Crear("Grid", 3, 2)
2. hier voluntad el String-Grid-Zeilen hinzugefügt
AddStrings(hGrid&, "AB|DEF|0123")
AddStrings(hGrid&, "GHI|J23KL|012345")
AddStrings(hGrid&, "|MNOP|PQR|")
AddStrings(hGrid&, "STU||V")
AddStrings(hGrid&, "ABCD12|STUVW|XYZ0")
AddStrings(hGrid&, "ABCD34|stuvw|999,00")
AddStrings(hGrid&, "Abcd45|STUVW|-111,11")
AddStrings(hGrid&, "Abcd56|StUVW|2.111,11")
AddStrings(hGrid&, "Abcd56|AbxVW|-15.234,56")
AddStrings(hGrid&, "Abcd67|STUVW|0,00")
X% = InsertString(hGrid&, 5, "")
SetText hGrid&, X%, 0, "Hugo"
SetText hGrid&, X%, 1, "war"
SetText hGrid&, X%, 2, "hier"
3. Gridbox-Inhalt ausgeben

WhileLoop 0, GetCount(hGrid&)-1

    Imprimir GetString$(hGrid&, &bucle)

EndWhile

Imprimir "--------------"
4. Cuerdas selektieren
Imprimir Seleccione String(hGrid&, -1, "Hugo")
Imprimir Seleccione String(hGrid&, -1, "GHI")
Imprimir Seleccione String(hGrid&, 6, "Hugo")
5. Jetzt auswerten
Imprimir Str$(GetSelCount(hGrid&)) + "/" + Str$(GetCount(hGrid&))
Jetzt voluntad el selektierten Zeilen ausgegeben

WhileLoop 0, GetCount(hGrid&)-1

    X% = &Loop

    If GetState(hGrid&, X%) > 0

        Imprimir GetString$(hGrid&, X%)
        Feld$ = ""

        WhileLoop 0, 2   3 Spalten

            Feld$ = Feld$ + GetText $(hGrid&, X%, &Loop) + " / "

        EndWhile

        Imprimir Feld$

    EndIf

EndWhile

WaitInput
End

Ach sí: Hinter esta neuen Controls verbergen se natürlich el Windowscontrols Listbox y SysListView32, allerdings sin jede Beziehung a una Elternfenster oder Größe oder Anzeigeoptionen, eben como pure Datenspeicher!

Yo hoffe, daß el 6. Subscriptionslieferung con el neuen Möglichkeiten todavía heute rausgeht.

Saludo
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

Jac
de
Lad

Hola Roland!

¿Puede du lo tal vez einrichten, dass Características en Klassen, el no Parámetro haben, kein () benötigen? Oder dies tal vez allgemein en todos Características sin Parámetro ausweiten? Fänd Yo jedenfalls bien.

Jac

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

23.04.2006 ▲

Andreas
Gaida

Hi!
Echte Hilos el wäre una Super Sache si uno ellos bajo XProfan 10 realisieren podría

MfG
Andreas

Athlon X2 4800 , 2GB Ram , GeForce 7800GT
Windows XP Pro , XProfan 10 und 11 , Profan2Cpp 1.6b

25.04.2006 ▲

RGH

[quote:39eb735042=Jacob Liebeck]Hola Roland!

¿Puede du lo tal vez einrichten, dass Características en Klassen, el no Parámetro haben, kein () benötigen? Oder dies tal vez allgemein en todos Características sin Parámetro ausweiten? Fänd Yo jedenfalls bien.

Jac

[/quote:39eb735042]
Das se por desgracia, no ir, como en XProfan una Función sí gerade daran erkannt se, daß una Klammerausdruck folgt!

Saludo
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

25.04.2006 ▲