Bonjour à tous j'ai un souci avec blockwrite.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Button1Click(Sender: TObject);
var newtext:string;
begin
   AssignFile(F, 'monfichier.txt');
       FileMode:=2;
      Reset(F, 1);
 
       Seek(F, FileSize(F));
              newtext:='mon texte à ajouter';
      BlockWrite (F,'mon texte à ajouter',19);
        closeFile(F);
end;
Là mon texte est bien ajouter mais si j'utilise ce code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
BlockWrite (F,nextext,newtext.Length);
le nouveau texte n'est pas enregistré.