Discussion :

[med_2007]

J'utilise Delphi 2005 et rave reports pour la réalisation d'un logiciel en arabe.
Dans l'environnement de Rave reports, la prévisualisation de l'état qui contient du text en arabe est normale (de droite à gauche).
Mais, l'exécution de l'état depuis delphi 2005 fait apparaitre les caractères arabes anormalement, de gauche à droite, (normalement de droite à gauche).
SVP je vous une réponse le plutôt possible ?

[alpatchikho]

il faut rendre le suport du windows en arbe c-à-d (panneau de cofiguration puis option regional puis choisir langue arabe puis option avancée choir langue arabe ) une fenetre de dialogue s'affiche vous demande de redemarer le micro le micro redemare et assayer votre application.

[gtahar]

J'utilise Delphi 2005 et rave reports pour la réalisation d'un logiciel en arabe.
Dans l'environnement de Rave reports, la prévisualisation de l'état qui contient du text en arabe est normale (de droite à gauche).
Mais, l'exécution de l'état depuis delphi 2005 fait apparaitre les caractères arabes anormalement, de gauche à droite, (normalement de droite à gauche).
SVP je vous une réponse le plutôt possible ?

ALLER PAR LE PANNEAU DE CONFIGURATION A LA PAGE
http://www.zshare.net/image/1541977133298ed9/

[chekkal]

j'ai testé toutes les possibilités cité dans cette discussion aucune d'elles ne marche, alors j'ai creé cette fonction de remplacement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
function inverse(s:shortstring):shortstring;
var
    i,l:byte;
    j:shortstring;
    K:array [1..30] of shortstring;
begin
     for I := 1 to 30 do
       K[i]:='';
         J:='';l:=1;
      for I :=1 to length(s)  do
      begin
              if s[i]=' ' then
              begin
                      k[l]:=j;
                      j:='';
                     l:=l+1;
              end
              else
              begin
                    j:=j+s[i];
 
              end;
      end;
      j:='';
      for I := 30 downto 1 do
             if K[i]<>'' then
              j:=j+' '+k[i];
 
     inverse:=j;
end;

cette fonction reçoit le texte en arabe elle fait l'inversion des mots pour qu'ils apparaissent corréctement dans Rave Report

[SergioMaster]

Bonjour,

Outre le fait qu'il s'agit d'un "déterrage de sujet" je trouve pas terrible cette fonction de checkal , surtout qu'il existe déjà une fonction ReverseString (à partir de D6 dans strutils)

[chekkal]

bonjour @sergio,

ça n'a pas été ma volonté de "deterer", je suis tombé sur cette discussion par hasard en cherchant une solution à mon probléme. Donc en parfaite gentelmen j'ai proposé cette fonction.

sinon pour la fonction que tu m'a donnée je crois pas qu'il soit efficace.

[SergioMaster]

méa culpa , il s'agissait d'inversion de mots et non de caractères
il n'empêche je n'en saisi pas le sens , mais ne parlant que peu l'arabe et ne m'étant jamais mis à l'écriture ....

[chekkal]

Bonjour @sergio,

là je marque un point, moi je parle Kabyle,Arabe,Français et Anglais.

sinon pour bien expliquer prenant un exple:

j'ai la phrase suivante: Crayon noir-> imprimer noir Crayon avec Rave d' ou la fonction que j'utilise.

[asafaw]

Bonjour,

Les états éditant de l'Arabe et développées avec Delphi7 et Rave Reports 5.0.0.4 fonctionnent correctement.

Par contre je n'arrive pas à trouver une solution en Delphi XE2 - Rave Reports 10 qui inverse les mots d'une phrase en arabe, en plus je ne peut pas utiliser une fonction d'inversion parce que j'utilise en même temps l'arabe et le français.

Que puis-je faire ?

Merci.