[*]Profan

- page 8 -

RGH

allô iF,
cela artet ensuite oui déjà presque dans une Stringlisten-Ersatz aus.
quoi Stringlisten betrifft, suis je avec mir encore nich einig, comment je cet realisiere. Geplant ist es déjà!
une variante wäre dans qui acte, Cordes comme Stringlisten trop behandeln. l'autre variante wäre, avec hStrList& = Créer(List) Stringlisten trop erzeugen et cet ensuite avec den bekannten Listenfunktionen (Addlist, InsertList, DeleteList, etc.) trop Travailler. Votre Funktion pourrait ensuite z.B. encore comme SetList(hStrList&, N&, neuStr$) hinzugefügt volonté.

Salut
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

allô Roland!

stringlisten wären im moment qui nr. 1 sur meiner wunschliste.
justement dedans de klassen serait cela pour qui datenhaltung ungemein aider (z.b. pour qui zwischenspeicherung de sql sélectionner -abfragen)
bisher habe je überwiegend listboxen eingesetzt, qui mais certains nachteile avons (mettons un hauptfenster voraus et erzeugen sous certain SP de windows schutzverletzungen)

dans diesem zusammenhang wäre un moven qui profan listboxliste dans qui stringliste bien, ou bien encore besser un neuer sqlexec paramètre qui cela ergebnis qui abfrage direct dans un stringliste schiebt. (sqlexec sélectionner * à partir de tabelle,4,hStrList&)

encore la fois une autre frage. denkst du, cela es la fois possible son wird dans XProfan echte threadmöglichkeiten einzubauen ? bisher bleibt malheureusement seulement une externe DLL. aussi avec Profan2CPP ist es schwierig et erzeugt partiellement merkwürdige faute.

r.r.

21.04.2006 ▲

@Roland: Wow - meinst Du quelque chose comme ici ( [...]

) seulement nativ et avec cela plus rapide?

@Ragnar: je crois Roland devrait ensuite viele Funktionen kapseln - je glaub cela serait ensuite malheureusement doch très trop Lasten qui Abarbeitung aller.

je serait volontiers dans einem anderen Fil sur Probleme de echten XProfanthreads plus par-dessus erfahren si Du déjà Tests gemacht la hâte.

21.04.2006 ▲

Clemens
Meier

Einen Vorschlag hätte je encore et je crois, il pourrait sich aussi realisieren laisser. sous XProfan ist es pas possible, derrière einem si, tandis que ou bien until une Wertzuweisung vorzunehmen, so comme dans so manch anderer Programmiersprache gibt. alors so quelque chose comment dans PHP:

tandis que (file$ = readmyfile())
do something
Wend

XProfan serait dans dem le cas vérifier, si qui le contenu de file$ dem Rückgabewert qui Funktion/Procédure readmyfile identique ist. XProfan hätte aussi un Problem, den Unterschied entre Zuweisung et comparaison trop erkennen. mais peut-être pourrait on une speziellen Construire verwenden, avec cela es XProfan doch possible ist, car une Zuweisung dans qui obigen forme erleichtert einem doch très cela vivre:

Möglicher Construire pour XProfan:
tandis que (file$) = readmyfile()
do something
Wend

alors, qui Variable steht dans einer eigenen Klammer, qui reste ist offen. cela Tandis que bezieht sich sur qui Klammer, cela = wird ensuite comme Zuweisungsoperator erkannt.

ou bien on führt qui geschweifte Klammer un:
tandis que {file$ = readmyfile()} ...

XProfan pourrait den le contenu qui geschweiften Klammer comme Zuweisung erkennen, était qui Zuweisung <> 0 bzw. <> faux, bzw. <> NULL etc, wäre qui Ausdruck véritable.

XProfan 9.1; XP SP2; FF; Editpad

Frank
Abbing

Ersparniss: une la ligne...

RGH

[quote-part:228e80a12c=Clemens Meier]alors de à cause de une la ligne, cela était wohl un peu zuvoreilig geschrieben.[/quote-part:228e80a12c]
Völlig indépendant de qui Zeilenzahl peux cet Construire (Zuweisung dedans eines Ausdruckes) dans XProfan déjà c'est pourquoi pas marcher, weil qui Zuweisung un Befehl ist (aussi si cela Befehlswort LET dans Anlehnung à BASIC être omis peux). un Befehl peux toujours seulement am Anfang einer la ligne stehen et plan pas dans einem Ausdruck. Um Deinen Wunsch trop realisieren, wäre alors un assez großer intervention dans qui intérieur Struktur de XProfan notwendig.

Salut
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

je denke, und dir aussi sans Zuweisung im Ausdruck derrière WHILE bzw. WHILENOT. et dans manchen Fällen vermeidet aussi qui fußgesteuerte Boucle (REPEAT ... UNTIL Condition) überflüssige Programmzeilen.
Salut
Roland

RGH

[quote-part:691298bdc0=Clemens Meier]
tandis que (file$ = readmyfile())
do something
Wend[/quote-part:691298bdc0]
cela serait je dans XProfan so écrivons:
Kompilieren Marque Séparation

!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-part:3cf0fae77c=RGH]Um Deinen Wunsch trop realisieren, wäre alors un assez großer intervention dans qui intérieur Struktur de XProfan notwendig.[/quote-part:3cf0fae77c]
Tja, dans dem le cas: tant pis

XProfan 9.1; XP SP2; FF; Editpad

RGH

NACHTRAG: Grid wurde um den paramètre Typ% erweitert, so dass aussi ici eh bien une Sortierung et qui l'élection entre un- et Mehrfachauswahl possible ist! aussi Listbox et GridBox wurden entsprechend erweiter. (Siehe dessus!)

[quote-part:67b0b14ced=Ragnar Rehbein]allô Roland! stringlisten wären im moment qui nr. 1 sur meiner wunschliste.
r.r.[/quote-part:67b0b14ced]
allô Ragnar, ab qui prochain Subscriptionslieferung vous êtes vorhanden:
avec create(List, Typ%) wird une stringliste erzeugt, qui avec den gleichen Funktionen bearbeitet volonté peux, comment qui avec create(ListBox,...) erzeugten Listboxen. Beim Typ% steht 1 pour sortiert et 2 pour Mehrfachauswahl. cet Eigenschaften peut kombiniert volonté. (oui, dans XProfan peut Elemente einer Stringliste markiert volonté, oui c'est ca comment dans einer Listbox!)
un Beispielcode;
Kompilieren Marque Séparation

! 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
Fin

mais c'est encore pas alles!

il y a eh bien aussi Stringgrids, qui plusieurs Spalten avons peut. Erzeugt volonté vous avec create(Grid, Spalten%, Typ%). qui Typ% hat qui gleiche Funktion comment chez List. (cela Gridcontrol qui letzten Lieferung wurde pour dans GridBox umgetauft, quoi eh besser trop ListBox, ChoiceBox et EditBox paßt.). aussi ici marcher alle Funktionen, qui aussi chez einer GridBox marcher. un Beispiel:
Kompilieren Marque Séparation

! Programme gridtest.prf
Déclarer X%, champ$
Déclarer hGrid&
Cls
1. String-Grid erstellen
Typ 2 = Mehrfachauswahl
hGrid&   = Créer("Grid", 3, 2)
2. ici volonté qui 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-le contenu ausgeben

WhileLoop 0, GetCount(hGrid&)-1

    Imprimer GetString$(hGrid&, &loop)

Endwhile

Imprimer "--------------"
4. Cordes selektieren
Imprimer Sélectionnez String(hGrid&, -1, "Hugo")
Imprimer Sélectionnez String(hGrid&, -1, "GHI")
Imprimer Sélectionnez String(hGrid&, 6, "Hugo")
5. maintenant auswerten
Imprimer Str$(GetSelCount(hGrid&)) + "/" + Str$(GetCount(hGrid&))
maintenant volonté qui selektierten Zeilen ausgegeben

WhileLoop 0, GetCount(hGrid&)-1

    X% = &Boucle

    Si GetState(hGrid&, X%) > 0

        Imprimer GetString$(hGrid&, X%)
        champ$ = »

        WhileLoop 0, 2   3 Spalten

            champ$ = champ$ + GetText $(hGrid&, X%, &Boucle) + " / "

        Endwhile

        Imprimer champ$

    EndIf

Endwhile

WaitInput
Fin

ah oui: derrière cette neuen Controls cacher sich naturellement qui Windowscontrols Listbox et SysListView32, allerdings sans chacun Beziehung trop einem Elternfenster ou bien Taille ou bien Anzeigeoptionen, plan comme pure Datenspeicher!

je hoffe, qui qui 6. Subscriptionslieferung avec den neuen Opportunités encore aujourd'hui rausgeht.

Salut
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

allô Roland!

peux du es peut-être einrichten, dass Funktionen dans Klassen, qui aucun paramètre avons, ne...aucune () besoin? ou bien ca peut-être allgemein sur alle Funktionen sans paramètre ausweiten? Fänd je 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 Threads cela wäre une Super l'affaire si on vous sous XProfan 10 realisieren pourrait

MfG
Andreas

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

25.04.2006 ▲

RGH

[quote-part:39eb735042=Jacob Liebeck]allô Roland!

peux du es peut-être einrichten, dass Funktionen dans Klassen, qui aucun paramètre avons, ne...aucune () besoin? ou bien ca peut-être allgemein sur alle Funktionen sans paramètre ausweiten? Fänd je jedenfalls bien.

Jac

[/quote-part:39eb735042]
cela wird malheureusement pas aller, là dans XProfan une Funktion oui justement daran erkannt wird, qui un Klammerausdruck folgt!

Salut
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 ▲