Discussion :

[joc02]

Depuis quelque temps lorsque l'on compile notre projet principal, nous avons une erreur de compilation :

[dcc32 Erreur fatale] sFormation.pas(2763): F2084 Erreur interne : AV09E02D01-R00000000-0

Lorsque l'erreur survient, il faut construire le projet et là ça passe. Ensuite au bout de quelques compilations l'erreur apparait de nouveau.
Ceci ce produit sur tous les postes des développeurs (20 postes) par contre la fiche donnée en erreur est aléatoire.

Je ne sais pas trop où regarder....

[Paul TOTH]

il y a dans le projet une structure valide mais que le compilateur gère mal suite à un bug interne (ben oui).

pour éviter l'erreur il faut identifier cet élément et le modifier.

il n'y a pas très longtemps dans un projet j'avais une structure relativement complexe qui m'empêchait d'utiliser Ctrl+Alt+C pour la complétion de code. j'ai du modifier mon code pour que ça fonctionne

quelque chose du genre

Code :

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

1
2
3
4
5
6
7
8
 
type
 TMonRecord =
    data : array[0..5] of record
      item: array [0..2] of Word,
      value: Double;
    end; 
  end;

et que j'ai remplacé par

Code :

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

1
2
3
4
5
6
7
8
9
10
 
type
  TITem = array[0..2] of Word;
  TData = record
    Item: TItem;
    Value: Double;
  end;
  TMonRecord =
    data : array[0..5] TData;
  end;

recherche le message sur Google en précisant le numéro de version de Delphi

[ALWEBER]

1) Si tu as des tableaux dynamiques que tu réinitialise souvent tu peux utiliser une procedure comme décrit ci-dessous.
2) Je viens d'avoir des cas de non réinitialisation de l'espace du à une confusion entre réservation d'espace en AnsiString pour une utilisation de Type WideString avec le TPath et TpathAnimation

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
procedure setlength1(var arX: TArDouble; long : integer);
var
  i1 : integer ;
begin
  i1 := length(arX) ;
  if i1 = 0 then
    setlength (arX, long)
  else
    if long <> i1  then
    begin
      setLength(arX,0) ;
      arX := nil ;
      Finalize(arX);
      setlength (arX, long) ;
      exit ;
    end ;
end ;