Ce module ajoute une string dans une stringlist si...

Soyez le premier à donner votre avis sur cette source.

Snippet vu 115 fois

Contenu du snippet


{Ce module ajoute une string dans une stringlist 
si cette valeur n'est pas présente dans cette stringlist'}

Unit Unique;

interface

uses Sysutils,Classe;

TStringList_Unique = class(Classes.TStringList)
  Procedure Ajouter_ce_mot_dans_les_exifs(identifiant:string);
  end;
  
implementation

Procedure TStringList_Unique.Ajouter_ce_mot_dans_les_exifs(identifiant:string);
    function vocabulaire_existant:boolean;
        var i:integer;
            boolean_marker_found:boolean;

        function egaliter_de_i:boolean;
          var ficelle:string;
          begin
          ficelle:=self.Strings[i];
          egaliter_de_i:=strcomp(pchar(ficelle),pchar(identifiant))=0;
          end;

        begin
        boolean_marker_found:=false;
        for i:=0 to pred(self.count) do
          boolean_marker_found:=boolean_marker_found or egaliter_de_i;
        vocabulaire_existant:=boolean_marker_found;
        end; {vocabulaire_existant}

  begin
  if self.count=0 then
    self.add(identifiant)
  else
    if not vocabulaire_existant then
      self.Add(identifiant);
  end; {TStringList_Unique.Ajouter_ce_mot_dans_les_exifs}

end.

Compatibilité : 1.0

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.