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;