Discussion :

[Fred.77]

bonsoir à tous et à toutes ;


j'ai charger un fichier dans une Edit et je souhaite le sauvegarder en utilisant un boutton .



Ce code m'ouvre un fichier et le charge dans Edit, ce que je souhaie c'est de l'enregistrer en utilisant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

TForm1.boutton2Click(Sender: TObject);

Merci pour vos conseils .

[bhf37]

Salut
Tu parle d'un TEdit, je suppose...
Tu devrais peut-être poser ton fichier dans un TMemo, plutôt.

Sinon ton code est un peu court.

Tu peux nous en dire plus, stp...

[Fred.77]

Bien sur ,

je souhaite écrire dans un fichier aprés l'avoir ouvert et j'hésite entre Write ou writebuffer le fichier est un fichier binaire et voici mon p'tit bout de code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
procedure TMainForm.EnregistrerClick(Sender: TObject);
var
  F:TMemoryStream;
  P: Pchar;
  S: String;
  FS : TFileStream;
 
SaveDialog1.Filter := 'fichiers (*.bin)|*.BIN ';
 SaveDialog1.DefaultExt := 'bin';
  if SaveDialog1.Execute then
   begin
if MessageDlg(SaveDialog1.FileName + ' le fichier est encore la', mtWarning, [mbYes,mbNo], 0) = mrYes then
 begin
 
  F.SaveToFile(SaveDialog1.FileName);
  F.Write(PChar(F.Memory),+F.Size);
 
  F.SaveToFile(pchar(PChar(F.Memory)+F.Size));
  FreeMem(P);
 end

[ShaiLeTroll]

Deux Sujets pour la même chose, voir ICI