La version de Delphi n'étant pas indiquée, voici le code corrigé sous Berlin:
var
i: byte;
NewItem: TMenuItem;
begin
for i := 1 to 4 do
begin // création des 4 menus
La version de Delphi n'étant pas indiquée, voici le code corrigé sous Berlin:
var
i: byte;
NewItem: TMenuItem;
begin
for i := 1 to 4 do
begin // création des 4 menus
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.