jabbi
Messages postés9Date d'inscriptionvendredi 4 mars 2005StatutMembreDernière intervention10 mars 2005
-
10 mars 2005 à 16:04
jmp77
Messages postés1119Date d'inscriptionlundi 4 février 2002StatutMembreDernière intervention 4 octobre 2006
-
10 mars 2005 à 16:21
bonjour, j'utlilise ce mini programme
procedure TF_Courbe_de_Bezier.Enregistrer1Click(Sender: TObject);
var
NomFichier: String;
Ext: string;
fic :T_save;
begin
if savedialog1.execute
then
begin
saveDialog1.Filter := 'Fichiers typé (*.dat)|*.dat';
NomFichier:= SaveDialog1.FileName;
if NomFichier[Length(NomFichier) - Length(Ext) + 1] <> '.'
then
begin
NomFichier:= NomFichier + Ext;
assignfile(fic,NomFichier);
SAUVEGARDE(pdebpc,fic);
CloseFile(fic);
end;
end
end;
MAIS LE PB c'est que ce programme est utilisé pour un fichier typé.si on remplace T_save par text il me dit "constante ou identificateur de type attendu" svp aidé moi MERCI