convertir un ensemble en string

Question

Bonjour,
 voila une partie concernée  : 
type
date= record
         jj:set of 1..31;
         mm:set of 1..12;
         aa:integer;
       end;
 employer= record
            prenom,nom:string;
            datedenaissance:date;
            datedemboche:date;
            sexe: set of (masculin,feminin);
            numsecurite:integer;
            situation:set of (marie,divorce,veuf,celibataire)
           end;
alors la question c'est que je sait pas comment faire pour afficher le "sexe" et la" situation familiale" qui sont de type ensemble dans une stringgrid parce que ça s'affecte pas directement .
merci d'avance pour votre aide .

korgis · Answer

Salut,
Tu peux utiliser des array of string et la fonction Ord pour la position dans les ensembles, comme ceci :

const
  sSituation: array[0..3] of string = ('marié','divorcé','veuf','célibataire');
  sSexe: array[0..1] of string = ('masculin','féminin');
var
  situation: set of (marie,divorce,veuf,celibataire);
  sexe: set of (masculin,feminin);
  LaSituation, LeSexe: string;
begin
  LaSituation := sSituation[Ord(divorce)];
  LeSexe := sSexe[Ord(feminin)];
  // affichage dans un memo pour vérifier que c'est OK
  Memo1.Clear;
  with Memo1.Lines do
  begin
    Append(LaSituation);
    Append(LeSexe);
  end;
end;

Convertir un ensemble en string

1 réponse

Votre réponse

Discussions similaires