Une autre facon pour ecrir dans un fichier

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 299 fois - Téléchargée 36 fois

Contenu du snippet

Voila une autre façon pour ecrir dans un fichier

Source / Exemple :


unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form1: TForm1;
  NomDeFichier:String;

implementation

{$R *.DFM}
var Stream:TFileStream;

procedure TForm1.Button1Click(Sender: TObject);
begin
Stream.Write(PChar(Edit1.text)^,length(Edit1.Text));
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
NomDeFichier:='C:\JaDo.txt';
if not FileExists(NomDeFichier) then with TMemoryStream.Create do begin
SaveToFile(NomDeFichier); Free; end;
Stream:=TFileStream.Create(NomDeFichier,fmOpenReadWrite or fmShareDenyNone);
Stream.Seek(0,soFromEnd);
end;

end.

Conclusion :


C'est pas la plus Simple Mais Toujours en dois donner des autres Solutions

A voir également

Ajouter un commentaire

Commentaires

Messages postés
25
Date d'inscription
jeudi 18 juillet 2002
Statut
Membre
Dernière intervention
18 mai 2008

Pourquoi tu na pas mis dans Ton Pseudo Tete D'oeuf :D
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 .
Messages postés
6
Date d'inscription
jeudi 18 juillet 2002
Statut
Membre
Dernière intervention
15 février 2003

Hum, Jadovich, c'est de la tricherie ce que tu as fait :P
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
Messages postés
25
Date d'inscription
jeudi 18 juillet 2002
Statut
Membre
Dernière intervention
18 mai 2008

Merci Manchi Pour ton aide il ma bien Servi :)
Messages postés
368
Date d'inscription
vendredi 20 octobre 2000
Statut
Modérateur
Dernière intervention
11 décembre 2013

Trois remarques : (qui en feras 4 ?)

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.
Messages postés
25
Date d'inscription
jeudi 18 juillet 2002
Statut
Membre
Dernière intervention
18 mai 2008

Ma Façon aussi marche et je pense pas qu'il ya un risque de perte de donnees
Afficher les 9 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.