Bonjour à tous,

J'ai, sur une forme, tout un tas de TButton.
Pour modifier leurs Caption, j'utilise ceci :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
procedure TForm1.BD0Click(Sender: TObject);
var k:integer;
    s:string;
begin
    s:=(Sender as TButton).Caption;
    k:=length(s);
    if s[k]='0' then s[k]:='1'
                else s[k]:='0';
    (Sender as TButton).Caption:=s;
end;
qui fonctionne sur les boutons Enable.
Hors, selon les tests de départ, certains boutons deviennent disable.
Je peux cliquer sur ces boutons disable : j'obtiens alors un "Runerror(219)" suivi d'un "Invalid type cast" avec un pointage sur la 1ère ligne de la procédure.
Je ne sais que faire (à part tout ré-écrire différemment).
Merci.