Discussion :

[Fred.77]

salut ,


je suis en train de travailler sur un projet sur les fichiers , mais j'ai un probléme
pour sauvegarder mon fichier .

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
21
22
 
 
procedure TMainForm.EnregistrerClick(Sender: TObject);
var
  F:TMemoryStream;
  P: Pchar;
  S: String;
  FS : TFileStream;
 
SaveDialog1.Filter := 'fichiers (*.txt)|*.TXT|Fichiers Pascal(*.pas)|*.PAS';
 SaveDialog1.DefaultExt := 'pas';
  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

Merci pour tout conseil .

[ShaiLeTroll]

Je ferais plutôt

Code :

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

1
2
3
4
5
6
7
FS := TFileStream.Create(SaveDialog1.FileName, fmCreate);
try
  F.Seek(0, soFromBeginning);
  FS.Write(PChar(F.Memory)^, F.Size);
finally
  FS.Free();
end;