Problème avec writeln

Résolu
LeNoyauDur Messages postés 35 Date d'inscription vendredi 14 septembre 2007 Statut Membre Dernière intervention 25 août 2008 - 17 avril 2008 à 21:30
LeNoyauDur Messages postés 35 Date d'inscription vendredi 14 septembre 2007 Statut Membre Dernière intervention 25 août 2008 - 21 avril 2008 à 20:32
Bonjour,


J'essai de mettre en place un système de fichier sous Delphi et j'ai un petit souci avec le writeln qui me fait un message d'erreur

type
  OccEleve = record
    Prenom, Nom : string[25];
    AnNaiss, NumClasse : integer;
  end;

var
  FrmCrea: TFrmCrea;
  Fichier:Textfile;

  assignfile(Fichier,'C:\Delphi.txt');
  rewrite(Fichier);

 if ok then
  begin
     fichEl.Nom := EdtNom.Text;
     fichEl.Prenom := EdtPre.Text;
     fichEl.AnNaiss := StrToInt(EdtAn.Text);
     fichEl.NumClasse := StrToInt(EdtCla.Text);
     writeln(Fichier, fichEl);
  end;

et avec ça j'ai le message d'erreur suivant : Type illégal dans une instruction write/writeln (code 153).

Merci

LeNoyauDur





<hr />
I'd rather be insulted by you than someone i respect.

5 réponses

f0xi Messages postés 4205 Date d'inscription samedi 16 octobre 2004 Statut Modérateur Dernière intervention 12 mars 2022 37
18 avril 2008 à 16:56
type
  OccEleve = record
    Prenom, Nom : string[25];
    AnNaiss, NumClasse : integer;
  end;

var
  FrmCrea: TFrmCrea;

begin
 
  if ok then
    with TFileStream.Create('C:\delphi.txt', fmCreate) do
    try
      fichEl.Nom       := EdtNom.Text;
      fichEl.Prenom    := EdtPre.Text;
      fichEl.AnNaiss   := StrToInt(EdtAn.Text);
      fichEl.NumClasse := StrToInt(EdtCla.Text);
      WriteBuffer(FichEl, SizeOf(OccEleve));
    finally
      Free;   
    end;
 
end;




<hr size="2" width="100%" />
3
Rejoignez-nous