XPSE

- Página 1 -

E.T.

...si yo todos Zeilen con el neuen Función, como:

Verg_Dat_2$ = GetText.Listview(Liste2&, &bucle, 1)

auskommentiere, se "nur todavía

" Claro angemeckert:

XProfan 11.2.1.8a.62 Praekompiler [XPSE]
Copyright (C) 1998-2010 XProfan.Com, built DE.

Expediente: e:profano 11-proggsduplfinderduplpicfinder.prf (117)
Objektcode: DuplPicFinder.asm(244) : Error A2235: Syntax error
: CLEAR
DuplPicFinder.asm(320) : Error A2235: Syntax error: CLEAR

Warnung: Fehler en el Ensamblador.
Mapfile: angewiesen

[C]ompile [Interpr [L]ink [R]unPrc Run[E]xe [S]ource [H]ilfe

Run-Prf: Error, interpretar con Warnungen no empfohlen.
XPSE:>

Gibt porque GetText.Listview(lListview,lColumn,lRow) no String zurück ???

Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

Gibt todavía kein Claro [...]

Schreib derweil vlt. simplemente rtlZeroMemory(handle,anzBytes). ^ ^

Frisch después de Dim es de paso siempre gecleart.

IF, Beitrag=56430, Zeitpunkt=15.03.2010

E.T.

Gibt todavía kein Claro [...]

No es así schlimm, habs auskommentiert.
Mit

...str(GetText.Listview(Liste1&, &bucle, 0))

kommt otra vez:

...
DuplPicFinder.asm(730) : Error A2235: Syntax error: GETTEXT
DuplPicFinder.asm(14083) : Error A2061: Symbol already defined
: __xeTS_331r

Warnung: Fehler en el Ensamblador.
Mapfile: angewiesen
...

Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

- Página 2 -

Str( esperado Largo como Parámetro, GetText.Listview( son aber una String zurück.

E.T.

Hm, XPSE empfielt me aber folgendes:

...
Warnung: Zuweisung zwischen String y Largo.
Función: VERGLEICHEN
Abhilfe: STR
...

, si yo GetText.Listview(.. uno String-Variable (Verg_Dat_2$) zuweise

GetText.Listview( son aber una String zurück. >>> SICHER ???

Naja, se ya todavía...

[offtopic]...muss sólo veces los, en el finstere Nacht

[/offtopic]

Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

Sí, bastante sicher. Usted puede bastante normal:

cls
long grid=create("gridbox",hwnd,"Links;0;180;Mitte;2;100;Rechts;1;80",0,0,50,300,300)
addstring(grid,"HalloHalloHalloHallo|Welt|Test")
imprimir gettext$(grid,0,0);"-"
imprimir test(grid);"-"
waitinput
end

nproc test

    parámetros grid&
    volver getText.Listview(grid&,0,0)

ENDPROC

- el Warnung se de otra manera betreffen, Usted wirst irgendwo una Largo una String zuweisen.

IF, Beitrag=56434, Zeitpunkt=15.03.2010

E.T.

...
- el Warnung se de otra manera betreffen, Usted wirst irgendwo una Largo una String zuweisen.

Schon klar, aber wo ???

nProc Vergleichen

    Declarar Verg_Dat_1$, Verg_Dat_2$, Vergl_Str1$, Vergl_Str2$, Vergl_Pass&, Pos_L1&
    Alles otro es global declariert
    Alles con **** hatte Yo ya auskommentiert
    Zaehler1& = GetCount(Liste1&)-1****

    WhileLoop 0,GetCount(Liste1&)-1

        Claro Vergl_Str1$, Verg_Dat_1$, Verg_Dat_2$
        Vergl_Str1$ = GetText.Listview(Liste1&, &bucle, 0)
        Verg_Dat_1$ = GetText.Listview(Liste1&, &bucle, 1)
        SetText Status&, 0,  ">>> Vergleiche : " + Verg_Dat_1$****

        WhileLoop 0,GetCount(Liste2&)-1

            Vergl_Str2$ = GetText.Listview(Liste2&, &bucle, 0)

            If Vergl_Str1$ = Vergl_Str2$

                Verg_Dat_2$ = GetText.Listview(Liste2&, &bucle, 1)

                Caso negativo Verg_Dat_1$ = Verg_Dat_2$

                    Inc Vergl_Pass&
                    AddStrings(Liste3&, Verg_Dat_1$ + "|" + Verg_Dat_2$)

                EndIF

            EndIf

        EndWhile

        SetText Status&, 1,  "# "+str(&bucle+1) + " > " + str(100/Zaehler1&*(&bucle+1)) + " %"****
        SendMessage(ProgressBar&,$0400+2,100/Zaehler1&*(&bucle+1),0)****

    EndWhile

    SetText Status&, 1, Date$(0)****
    SendMessage(ProgressBar&,$0400+2,0,0)****

ENDPROC

Yo seh wohl el Weiß antes lauter Schnee no mehr

Ist einziges nproc en el Programa. In XProfan läufts wunderbar, sólo sólo a langsam.
Und genau DEN Diferencia Yo quería gern veces sehen

Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

Geschwindigkeitstests wirken sólo correcto en Largo, sobald uno Float y/oder String nutzt, ists sólo todavía threadsicher pero no mehr sooo rápidamente.

SetText Status& debería SetText(Status heißen, 3-Parámetro-SetText y SetText como Befehl en nProcs hay sí no.

SetText Status&, 0, ">>> Vergleiche : " + Verg_Dat_1$****

El 0 es kein String, tambor el (korrekte) Meldung. ^ ^

E.T.

So, alles rausgeschmissen, qué no lebenswichtig es:

nProc Vergleichen

    Declarar Verg_Dat_1$, Verg_Dat_2$, Vergl_Str1$, Vergl_Str2$, Vergl_Pass&, Pos_L1&
    Zaehler1& = GetCount(Liste1&)-1

    WhileLoop 0,GetCount(Liste1&)-1

        Vergl_Str1$ = GetText.Listview(Liste1&, &bucle, 0)
        Verg_Dat_1$ = GetText.Listview(Liste1&, &bucle, 1)

        WhileLoop 0,GetCount(Liste2&)-1

            Vergl_Str2$ = GetText.Listview(Liste2&, &bucle, 0)

            If Vergl_Str1$ = Vergl_Str2$

                Verg_Dat_2$ = GetText.Listview(Liste2&, &bucle, 1)

                Caso negativo Verg_Dat_1$ = Verg_Dat_2$

                    Inc Vergl_Pass&
                    AddStrings(Liste3&, Verg_Dat_1$ + "|" + Verg_Dat_2$)

                EndIF

            EndIf

        EndWhile

    EndWhile

ENDPROC

Fazit: gleiche Meldung :

Warnung: Zuweisung zwischen String y Largo.
Función: VERGLEICHEN
Abhilfe: STR
Mapfile: angewiesen

Yo verstehs no

Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

Schaue Yo igual heute Abend genauer a!

Öhm, si yo todos Variables deklariere el Usted en el Proc nutzt, se ejecuta lo sin Fehler por:

XProfan 11.2.1.8a.62 Praekompiler [XPSE]
Copyright (C) 1998-2010 XProfan.Com, built DE.

Expediente: test.xprf (22)
Objektcode: Creating object: TEST.EXP
Creating library: TEST.LIB
Stats: If[68], Proc[54], Klassen[0], Ensamblador[54]
Runtime: "prfrun32.exe", gefunden
Kompiler: "profcomp.exe", gefunden
[C]ompile [I ]nterpr [L]ink [R]unPrc Run[E]xe [S]ource [H]ilfe

XPSE:> Kompilieren: Code: 0 [erfolg] (140202 B PRC)
XPSE:> Linken: Code: 0 [erfolg] (566 KB EXE)
XPSE:> Ausfuehren: Code: 0 [erfolg]
XPSE:>

 {$cle}
cls
waitinput
end
Gemerkt/Separiert de http://XProfan.com/t/?8130

nProc Vergleichen

    Declarar liste3&,liste2&,liste1&,Zaehler1&,Verg_Dat_1$, Verg_Dat_2$, Vergl_Str1$, Vergl_Str2$, Vergl_Pass&, Pos_L1&
    Zaehler1& = GetCount(Liste1&)-1

    WhileLoop 0,GetCount(Liste1&)-1

        Vergl_Str1$ = GetText.Listview(Liste1&, &bucle, 0)
        Verg_Dat_1$ = GetText.Listview(Liste1&, &bucle, 1)

        WhileLoop 0,GetCount(Liste2&)-1

            Vergl_Str2$ = GetText.Listview(Liste2&, &bucle, 0)

            If Vergl_Str1$ = Vergl_Str2$

                Verg_Dat_2$ = GetText.Listview(Liste2&, &bucle, 1)

                Caso negativo Verg_Dat_1$ = Verg_Dat_2$

                    Inc Vergl_Pass&
                    AddStrings(Liste3&, Verg_Dat_1$ + "|" + Verg_Dat_2$)

                EndIF

            EndIf

        EndWhile

    EndWhile

ENDPROC

Wobei Yo como auch sólo el Warnungen de XPSE gefolgt bin y deklariert habe, qué él como fehlend bemeckerte.

Der Fehler debería demnach vlt. en uno otro Proc versteckt ser.

E.T.

Jetzt versteh Yo gar nix mehr:
Wenn Yo deinen Ver código fuente de vorigem Post hernehme, sieht mi XPSE-Edición no como deine de, pero:

XProfan 11.2.1.8a.62 Praekompiler [XPSE]
Copyright (C) 1998-2010 XProfan.Com, built DE.

Expediente: e:profano 11-proggs
proc_test
proc_test.prf (22)

Warnung: Zuweisung zwischen String y Largo.
Función: VERGLEICHEN
Abhilfe: STR

[C]ompile [I ]nterpr [L]ink [R]unPrc Run[E]xe [S]ource [H]ilfe

XPSE:>

Hab doch aber el gleiche Versión, sólo en me es viel weniger en el Edición

Gefunden: XPSE otra vez neu "installiert" (gleiche Versions-Nummer), ahora hauts hin

Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

22.03.2010 ▲