Discussion :

[dahlia21]

Bonjour à tous,

Lorsque j'ouvre un projet fini et réalisé par une autre personne avec Delphi 7 sur mon ordinateur, Mon Delphi 7 me déclare l'erreur suivante "Error Reading Form: Class TSaveTextFileDialog not found...". En cherchant sur google j'ai fini par comprendre que la Classe TSaveTextFileDialog est incluse dans l'inité Vcl.ExtDlgs qui se trouve dans le package des composants Vcl du delphi 7. J'ai alors ouvert l'unité Vcl.ExtDlgs dans mon Delphi 7 pour vérifier l'existance de la Classe TSaveTextFileDialog et effectivement elle n'y est pas. Ma question est comment avoir la version complète de l'unité Vcl.ExtDlgs du Delphi 7 ou son code source qui inclura la classe TSaveTextFileDialog nécessaire pourque je puisse compiler le projet.

Merci d'avance pour vos réponses

[Jipété]

Bonjour à tous,

J'ai vraiment besoin d'aide et c'est un peu urgent. lorsque j'ouvre un projet fini et réalisé par une autre personne avec Delphi 7 sur mon ordinateur, [...]

Ma question est comment avoir la version complète de l'unité Vcl.ExtDlgs du Delphi 7 ou son code source qui inclura la classe TSaveTextFileDialog nécessaire pour que je puisse compiler le projet.

En demandant à l'autre personne ça serait plus simple.

[SergioMaster]

Bonjour,

déjà Vcl.ExtDlgs ça veut dire que votre recherche s'est faite pour une version supérieure à Delphi 7 (Delphi XEn)
et effectivement ExtDlgs ne contient que le dialogue pour les images TOpenPictureDialog/TSavePictureDialog, dérivées de TOpenDialog
une solution simple : remplacer votre TSaveTextFileDialog par un TSaveDialog
une solution à peine plus complexe : déclarer une classe

Code :

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

1
2
3
4
5
6
7
8
9
10
TSaveTextFileDialog = Class(TOpenDialog)
public 
  function Execute : Boolean; override;
end;
 
...
function TSaveTextFileDialog.Execute : boolean;
begin
  Result:=DoExecute(@GetSaveFileName);
end;

et peaufiner ensuite la fonction Execute selon votre besoin

[Roland Chastain]

Bonjour à tous,

Bonjour ! Bravo pour la présentation claire et méthodique du problème.

SergioMaster vous a donné la solution (et même deux pour le prix d'une).

En cherchant sur google j'ai fini par comprendre que la Classe TSaveTextFileDialog est incluse dans l'inité Vcl.ExtDlgs qui se trouve dans le package des composants Vcl du delphi 7.

Quand les noms d'unités ont un préfixe, c'est que le code est pour un Delphi récent.

déjà Vcl.ExtDlgs ça veut dire que votre recherche s'est faite pour une version supérieure à Delphi 7 (Delphi XEn)