Discussion :

[nadia27]

Supposons que l'on a le mot 'pommes'. Pour ce mot on a isole l'identificateur "es" et le trait "plural, femminin". Je dois creer une regle afin d'arriver de la forme "pommes" a celle de "pomme". Je ne sais pas comment ecrire tout cela et j'ai arrive justement aux lignes ci-dessous:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure TForm1.Button1Click(Sender: TObject);
  var mot: string;     
begin
  mot:=edit1.text;
  Regle1 := TRegle.Create;
  Identif1 := TIdentificateur.Create('PluralFeminin', 'es');
  Operation1 := TTexttoTerms.Create('SingularFeminin','s');
  Regle1.addOperation(Operation1);
  Regle1.addIdentificateur(Identif1);        
  mot:= 'pommes';
  Rule1.analyze(mot);
  end;

[Gilbert Geyer]

Salut,

Pas bien clair l'énoncé de ton problème d'autant plus que tu utilises Regle1 := TRegle.Create; c'est à dire un type TRegle dont tu ne fournis pas le code.

Je suppose que tu as quelque part dans ton code une sorte de dico qui te dit "si pos('pomme', MonMot)>0 alors MonMot:=Feminin et en plus ça donne au PluralFeminin 'pommes' et au SingularFeminin 'pomme'.

A mon avis pour créer ta règle, avant de te lancer dans le code, le mieux c'est de commencer par rédiger ta règle en français en appelant un chat un chat.

Déjà il y a des trucs bizzares dans le bout de code que tu fournis :
- Identif1 := TIdentificateur.Create('PluralFeminin', 'es');
- Operation1 := TTexttoTerms.Create('SingularFeminin','s');
avec ça 'PluralFeminin' et 'SingularFeminin' se termineraient tous deux par un 's' ???

A +

[anapurna]

salut

comme le dit gilbert il faut deja mettre a jour les données de ton dico
la terminaison n'est que l'un des aspect de la regle

le mots peut etre
Feminin,masculin
variant ,invariant
verbe,adverbe,nom,...
il est utiliser comme
sujet,complement,...

une fois que tu as determiné ces donnée tu pourra peut etre edicter tes regle
sans oublié les ecxeption


@+ Phil

[nadia27]

Salut de nouveau.
Non, il n'y a pas de ressemblance entre la terminaison du singulier et du pluriel.
Le Code: Identif1 := TIdentificateur.Create('PluralFeminin', 'es'); Operation1 := TTexttoTerms.Create('SingularFeminin','s'); ne signifie pas que le pluriel feminin et le singulier feminin se termineraient tous deux par un 's', mais que l'operation consiste a creer la forme de singulier, feminin par couper la terminaison "s" du mot.
J'ai dit que je ne sais pas comment ecrire les lignes de programme. Je suis arrivee a une partie d'ou je ne sais pas comment avancer.
Mais, les fichiers avec les terminaisons et les operations qui doivent faites pour arriver d'une forme a une autre ont ete bien ecrites et definies. C'est le programme que je ne sais pas le definir...

[anapurna]

salut

donc en fait apres l'analyse tu aimerai que l'on te retourne le simgulier du mots a analyser

donc dans analyse tu devrais avoir un truc du genre
iterm etant la terminaison de ton obj Identif1
et Oterm etant la terminaison de ton obj Operation1

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Function DonneSingulier(Iterm,Oterm,mots: String) : String;
begin
  Result :=''; 
 lgt := length(Iterm)
 aterm := copy(mots,length(mots)-lgt,lgt);
 if Iterm =  aterm Then
 begin  
    lgt := length(Oterm);
    aterm := copy(mots,length(mots)-lgt,lgt);
    if Oterm =  aterm Then 
      Result := copy(mots,1,length(mots)-lgt); 
 end; 
end;

@+ Phil

[Gilbert Geyer]

Salut,

Nadia27 :Mais, les fichiers avec les terminaisons et les operations qui doivent faites pour arriver d'une forme a une autre ont ete bien ecrites et definies. C'est le programme que je ne sais pas le definir...

... dans ce cas, j'en déduis pour ma part que l'opération permettant de passer par exemple du Feminin-Pluriel au Féminin-Singulier a elle-aussi été bien écrite et définie.
... mais quel est donc ton vrai problème ?
... et à propos de "C'est le programme que je ne sais pas le definir..." : pour pouvoir t'aider faut qu'on sache déjà ce que ton programme doit pouvoir faire.
... faut clarifier l'énoncé du problème à résoudre.
... et n'hésites pas à poster le code du TRegle parceque avec le bout de code de ta procedure TForm1.Button1Click(Sender: TObject); on est obligé de deviner le reste ... et on part sur des fausses pistes.

A+