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;
Partager