Hiermit suche ich in der ersten Spalte einen Eintrag
19670 Einträge existieren (im Moment)
ZitatAlles anzeigenPROC PLZ_SUCH_ERGEBNIS
DECLARE meldung&
PARAMETERS sucher$
sucher$=UPPER$(sucher$)
Windowstyle 2
meldung&=CREATE("WINDOW",%HWnd,"Gesucht wird: "+sucher$,(%MaxX/2-135),(%MaxY/2-35),270,85)
txt%=CREATE("TEXT",meldung&,"Bitte warten - \ndas Programm sucht die Eingabe.",10,10,300,60)
SetFont txt%,font1%
anzahl%=GETCOUNT(listview&)
SelectLine(listview&,y&,6)
I%=0:y&=0
DIM bereich#,512
WHILENOT I% = anzahl%
GetItemText(listview&,bereich#,0,y&)
ort$=String$(bereich#,0)
ort$=UPPER$(ort$)
INC y&
INC I%
IF ort$ = sucher$
DesTRoyWindow(meldung&)
SELECTLINE(listview&,0,0)
SELECTLINE(listview&,(y&-1),7)
SELECTSTRING(listview&,-1,sucher$)
BREAK
ENDIF
ENDWHILE
DisPose bereich#
ENDPROC
ca. 6 Sekunden werden gebraucht, wenn ich den letzten Eintrag suchen lasse.
Kann man das auch schneller machen ???