Lazarus et table ASCII [Résolu]

[Jeannot Alpin]

Salut a tous,
Je ne sais pas si vous pourrez me répondre vu que je travaille sous Lazarus (sur mon ubuntu kylix marche pas du tout !!), mais bon on va quand même essayer !

Je travaille avec la distance de levenshtein (et oui je continue le défi delphi ) sur lazarus. Donc je dispose de deux chaines de caractères, et sur chaque caractère. Tout va bien lorsque les lettres sont les lettres latines normales (appartenant a la table ASCII standard ; mais dès lors que les lettres sont des lettres avec des accents (appartenant à la table ASCII étendu) tout va mal ! Les lettres ne sont pas reconnus !
Qu'est ce qui ne va pas ? que faut il faire ??

Merci d'avance !

[scob95]

Salut,

Je n'utilise pas pour le moment Lazarus, mais essaye de changer de fonte de caractère. Je sais que certaineq police, n'ont pas les caractères accentués définis.

Si ça ne marche pas, on verra plus tard!

a+

[Jeannot Alpin]

Déja quand j'écrit dans tedit tout va bien (toute les lettres sont affichés) mais c'est lors du traitement que ca marche pas !

J'ai même essaayé de changer de police mais rien ne chage : ca marche toujours pas !

[scob95]

Salut,

Que veux-tu dire par lors tu traitements?

[Jeannot Alpin]

Pour inaugurer la coloration synthaxique, voila mon code :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
longueurchaine1:=length(chaine1) ;
longueurchaine2:=length(chaine2) ;
setlength(tab,longueurchaine1+1,longueurchaine2+1) ;
for i:=1 to longueurchaine1 do tab[i,0]:=i ;//initialisation de la premiere ligne de 0 à longueurchaine1
for j:=1 to longueurchaine2 do tab[0,j]:=j ;//initialisation de la premiere colonne de 0 à longueurchaine2
tab[0,0]:=0 ;
if longueurchaine1=0 then result:=longueurchaine2 ;
if longueurchaine2=0 then result:=longueurchaine1 ;
for i:=1 to longueurchaine1 do
        begin
        for j:=1 to longueurchaine2 do
                begin
                if chaine1[i]=chaine2[j] then cout:=0
                else cout:=1 ;
                mini:=minimum(tab[i-1,j],tab[i,j-1],tab[i-1,j-1]) ;
                tab[i,j]:=mini+cout ;
                end;
        end;
result:=tab[longueurchaine1,longueurchaine2] ;
finalize(tab) ;

C'est ca que j'appelle traitement !

[scob95]

Salut,

Et quand tu écris une chaine avec des accents dans le caption d'un TLabel ou le Text d'un TEdit, cela s'affiche correctement ou pas?

[Jeannot Alpin]

En effet il est possible que ca soit la police qui pose problème : lorsque je pose mon edit sans rien toucher après (sans préciser de police) : le texte s'affiche correctement dans l'edit1.text mais ca va pas dasn le traitement ensuite. Par contre lorsque je spécifie une autre police le accents ne s'affiche pas correctement et lorsque je choisi une police codé sur 2 octects (lazarus me dit que certaines polices sont codés sur 2 octects et ne s'afficheront pas correctement) rien ne s'affiche dans l'edit !