Salut à tous
J'ai un petit souci que je n'arrive absolument pas à résoudre.
Voici le code de la fonction incriminée:
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
 
procedure SaveText(Dossier: TDossier; const aVersion: integer;
  const Backup: boolean);
var s: string;
begin
  if aVersion in [10, 1000] then//<--Erreur ici
  begin
    if Backup then
    begin
      s := ChangeFileExt(Dossier.FileName, '.bakt');
      if FileExists(s) then DeleteFile(s);
      RenameFile(Dossier.FileName, s);
    end;
 
    case aVersion of
      1000: SaveText1000(Dossier);
    end;
  end;
end;
Seulement, lorsque je compile, j'ai une erreur sur la ligne que j'ai marquée disant
E1012 L'expression constante dépasse les limites de sous-étendue
Depuis quand les integer font moins de 1000?
J'ai essayé en remplaçant 1000 par 100 et là, ça passe

Bref, je ne sais pas trop quoi faire...
Si quelqu'un connaissait la solution...
Merci d'avance

PS: je ne sais pas si ça a une incidence quelconque mais ce code est dans une DLL qui utilise FastShareMem...