| |
| |
|
Jörg
Sellmeyer | ¡Hola Franco,
Könntest Usted tal vez una Función a fortlaufenden Numerierung el Spalten einbauen?
Etwa así:
KompilierenMarcaSeparación
Proc SetNumbers
Parameters LV&,Spalte&,hdl&,Text$
Declare nr$,Lines&,00$
Lines& = GetLines(LV&)
00$ = MkStr$("0",Len(Str$(Lines&)))
If %pcount = 1
WhileLoop 0,Lines& -1
Case IsKey(27):Break
nr$ = Format$(00$,&Loop)
SetItemText(LV&,Addr(nr$),Spalte&,&Loop)
Wend
ElseIf %pcount = 3
WhileLoop 0,Lines& -1
Case IsKey(27):Break
nr$ = Format$(00$,&Loop)
SetItemText(LV&,Addr(nr$),Spalte&,&Loop)
SetText hdl&,Text$ + nr$
bei hoher Geschwindigkeit erübrigt sich das mit dem Text evtl. aber so ist eine
Fortschrittsanzeige möglich
Wend
EndIf
ENDPROC
Tuve neulich el Vergnügen algunos -zigtausend Zeilen a numerieren.
In Ensamblador dauert el wahrscheinlich sólo Millisekunden.
Mit Profano Yo después de 10 Minuten en ca. 50000 abgebrochen.
Saludo
Jörg |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 02.03.2005 ▲ |
|
| |
|
|
Frank
Abbing | ¡Hola Jörg,
klar, debería no allzu aufwendig ser.
Aunque werkle Yo gerade a uno Add-On-Dll para el Listview.dll. Das ha höchste Priorität! |
|
| |
| |
| |
|
|
 | Gib ihm doch simplemente nen xpia-beispiel 
Salve, IF |
|
| |
| |
| |
|
|
Frank
Abbing | Hi,
podría Yo natürlich hacer. Aber Yo halte así una Función para el Listview.dll para muy sinnvoll. Darum voluntad Yo ellos hay aufnehmen.  |
|
| |
| |
| |
|
|
| Richtig - finde Yo auch Sinnvoll!
So una Beispielchen wäre trotzdem muy interessant y bien en Su ASM-Beispielen aufgehoben - oder incluso hier.
Lo sería sólo zeigen cómo el Listview.DLL (wo lo sí doch oft en viele Einträge va) con XPIA zusammen nutzen kann.
Salve, IF |
|
| |
| |
| |
|
|
Frank
Abbing | Hi.
[quote:67a10e7051]Lo sería sólo zeigen cómo el Listview.DLL (wo lo sí doch oft en viele Einträge va) con XPIA zusammen nutzen kann. [/quote:67a10e7051]
Ist doch sólo una Bucle, en el una Message siempre otra vez aufgerufen se. Weder interessant, todavía para sonderlich lehrreich. Und sólo bastante wenig Ensamblador, dafür mehr Estructuras...  |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | >Weder interessant, todavía para sonderlich lehrreich.
Ooch... mach doch veces trotzdem :roll: |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 03.03.2005 ▲ |
|
| |
|
|
| @Jörg: Usted hältst Franco fest - Yo kitzle Ihn a de Füße a ihm el ASM-25-Zeiler ausm Gesicht fällt. 
Salve, IF  |
|
| |
| |
| |
|
|
CB | OhGottohGott
Yo habs me gerade intenta, bildlich vorzustellen, como el wohl aussehen mag, si Franco lachend y kichernd Ensamblador flucht  |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | Das wär doch algo!  |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 04.03.2005 ▲ |
|
| |
|
|
Frank
Abbing | Hi,
como, qué? Un Verschwörung?
Puedo el Función gerne hier puesto, si ellos fertig es. Hab aber sólo todavía otro Sachen a tun.  |
|
| |
| |
| |
|
|
Frank
Abbing | Hi,
el Función es fertig y heisst SetLineNumbers().
Hier el Code, Yo hoffe es verständlich:
KompilierenMarcaSeparacióninvoke SendMessage,[ebp+8],4100,0,0
mov ecx,eax ; ecx = Anzahl Zeilen
xor edi,edi ; edi = Zeile = 0
.if ecx!=0
mov esi,[ebp+8] ; esi = Handle
mov edx,[ebp+12] ; edx = Startzeilennummer
routea:
push ecx
push edx
push edi
push edi
push [ebp+16]
push OFFSET unwichtig5
push [ebp+8]
invoke dwtoa,edx,addr unwichtig5
call SetItemText
pop edi
pop edx
pop ecx
inc edx
inc edi
cmp ecx,edi
jne routea
xor eax,eax
.endif
|
|
| |
| |
| |
|
(463)
Deutsch
English
Français
Español
Italia