UNE AUTRE FACON POUR ECRIR DANS UN FICHIER
cs_jado
Messages postés
25
Date d'inscription
jeudi 18 juillet 2002
Statut
Membre
Dernière intervention
18 mai 2008
-
16 août 2002 à 17:00
cs_jado Messages postés 25 Date d'inscription jeudi 18 juillet 2002 Statut Membre Dernière intervention 18 mai 2008 - 16 août 2002 à 17:00
cs_jado Messages postés 25 Date d'inscription jeudi 18 juillet 2002 Statut Membre Dernière intervention 18 mai 2008 - 16 août 2002 à 17:00
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/12084-une-autre-facon-pour-ecrir-dans-un-fichier
https://codes-sources.commentcamarche.net/source/12084-une-autre-facon-pour-ecrir-dans-un-fichier
16 août 2002 à 17:00
Moi j'ai pas dit que c'est La mienne et toi tu crois que U7pro C'est Le votre Lol :)
Bye bye Tete D'oeuf
T'es Vraiment Con .
13 août 2002 à 20:31
Faut pas pretendre que ce sont vos codes, tu as tout simplement copié ces lignes depuis ma source de U7Pro.
Bein, fallait juste dire que c'est pas le votre, en tout cas, bonne continuation sur Delphi.
Liquid Snake
10 août 2002 à 16:27
9 août 2002 à 04:13
1. D'abord un filestrem n'est pas un memory stream (voir les source de tfilestream), et il n'aloue q'un handle de fichier.
2. CloseHandle(stream); remplace tres bien stream.free
3. quand on utilise une var tstream liè a un form, je conseille vivement de faire :
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Déclarations privées }
Stream : Tfilestream;
public
{ Déclarations publiques }
end;
donc déclarez le filestream dans vos private ainsi vous ne risquez pas son effacemant accidentel par une autre partie du code (les libs en particulier).
voila bon coding
Manchi.
8 août 2002 à 22:39
8 août 2002 à 21:49
- Si le fichier n'existe pas tu utilises un MemoryStream, c'est inutile :
Begin
NomDeFichier:='C: empJaDo.txt';
if FileExists(NomDeFichier)
Then Stream:=TFileStream.Create(NomDeFichier,fmOpenReadWrite or fmShareDenyNone)
Else Stream:=TFileStream.Create(NomDeFichier,fmCreate or fmShareDenyNone);
Stream.Seek(0,soFromEnd);
End;
- Ensuite tu oublies de librérer le flux et donc il y a un risque de perte de données,
sur le OnDestroy il faut ajouter : Stream.Free;
Nono
8 août 2002 à 19:10
8 août 2002 à 19:09
8 août 2002 à 19:09