bonjour la compagnie,

comment faire pour ajouter un caractère dans un ensemble de caractère
(attention en dynamique, pas du style ens1 := ens1 + ['e'])

voici mon code :

procedure TfrmParams.Button2Click(Sender: TObject);
var
ens : TSysCharSet; // set of char !!!
i : integer;
s : string;
c : char;
begin
toto := [];
for i := 1 to Length(Edit3.Text) do
begin
s := WideCharToString( @Edit3.text[i] );
c := s[1];
ens := ens + c; // la ca marche pas
end;

ckk1.Checked :=
FindCmdLineSwitch(edt1.text, ens,ckk2.Checked);
end;

merci d'avance

chico el guacamole