Discussion :

[bAss_deZigner]

Bonjour, je travaille sur un projet actuellement, j'utilise cette unité :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
unit Fonctions;
 
interface
  procedure effacer;
 
type
  i = Integer;
 
implementation
  procedure effacer;
  begin
    i:= 0;
    while (i <= 30) do
    begin
      writeln;
      i := i + 1;
    end;
  end;
end.

Les erreurs ressortantes sont :

[dcc32 Erreur] Fonctions.pas(12): E2029 '(' attendu(e) mais ':=' trouvé(e)

[dcc32 Erreur] Fonctions.pas(13): E2029 '(' attendu(e) mais '<=' trouvé(e)

[dcc32 Erreur] Fonctions.pas(16): E2029 '(' attendu(e) mais ':=' trouvé(e)

De base, j'ai utilisé une instruction "for" (même erreur ressortante), et ai remplacé par un while dans l'espoir d'un changement, inefficace

Si vous comprenez d'où ça vient, je suis preneur ^^

[bAss_deZigner]

J'ai résolu simplement le problème, au final il faut juste un "var", et pas un "type"