Problème avec l'objet StringList.

Bonjour.

Ce message s'adresse à Klaus.

La valeur retournée est de 43 au lieu de 1.

Je ne comprends vraiment pas pourquoi.

Merci de ton aide Klaus.

Code:

' Donne 43 au lieu de 1 ?

dim element$, fichier$, res%, temporaire$

dll_on "kgf.dll"

fichier$="c:\a\infinitifs.txt"

' list 997
' file_load 997,fichier$

res%=dll_call2("CreateStringList",997,0)
res%=dll_call2("LoadStringList",997,adr(fichier$))

element$="abattre#"

' res%=dll_call3("SearchListBox",handle(997),0,adr(element$))

temporaire$=string$(255," ")
res%=abs(dll_call3("SearchStringList",997,adr(element$),adr(temporaire$)))

message str$(res%)

res%=dll_call1("DeleteStringList",997)
dll_off

Voici le contenu du fichier texte:

abattre#
1-abats
2-abats
3-abat
4-abattons
5-abattez
6-abattent
abolir#
1-abolis
2-abolis
3-abolit
4-abolissons
5-abolissez
6-abolissent
aboutir#
1-aboutis
2-aboutis
3-aboutit
4-aboutissons
5-aboutissez
6-aboutissent
aboyer#
1-aboie
2-aboies
3-aboie
4-aboyons
5-aboyez
6-aboient
abréger#
1-abrège
2-abrèges
3-abrège
4-abrégeeons
5-abrégez
6-abrègent
abrutir#
1-abrutis
2-abrutis
3-abrutit
4-abrutissons
5-abrutissez
6-abrutissent
abstenir#
1-abstiens
2-abstiens
3-abstient
4-abstenons
5-abstenez
6-abstiennent

Si tu fais comme ceci, tu vois immédiatement pourquoi:

Code:

' Donne 43 au lieu de 1 ?

dim element$, fichier$, res%, temporaire$

dll_on "..\kgf.dll"

fichier$="infinitifs.txt"

' list 997
' file_load 997,fichier$

res%=dll_call2("CreateStringList",997,0)
res%=dll_call2("LoadStringList",997,adr(fichier$))

element$="abattre#"

' res%=dll_call3("SearchListBox",handle(997),0,adr(element$))

temporaire$=string$(255," ")
' res%=abs(dll_call3("SearchStringList",997,adr(element$),adr(temporaire$)))
res%=dll_call3("SearchStringList",997,adr(element$),adr(temporaire$))

message str$(res%)+": "+trim$(temporaire$)

res%=dll_call1("DeleteStringList",997)
dll_off

Tu vous que 43 correspond à "abattre#". Je constate que le code O dans la fonction CreateStringList n'est pas pris en compte, et la liste est donc triée systématiquement. Je vais voir ça - c'est un bug.

C'est corrigé. Recharge la nouvelle version V3.14 du 27/07/2014.

Bonjour.

Je viens de télécharger la nouvelle version de KGF.DLL.

Tout fonctionne parfaitement maintenant.

Un grand merci Klaus.