savedialog pour un fichier text

Question

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&#233; (*.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&#233; pour un fichier typ&#233;.si on remplace T_save par text il me dit "constante ou identificateur de type attendu" svp aid&#233; moi MERCI

jabbi

jmp77 · Answer

Hello,



C'est TextFile et non pas Text.

Bonne prog,
JMP77.

N'oubliez pas de cliquer sur r&#233;ponse accept&#233;e.

Savedialog pour un fichier text

1 réponse

Votre réponse

Discussions similaires