Discussion :

[sematimo]

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é.

[tourlourou]

Bonjour,
J'imagine que nextext au lieu de newtext est un lapsus scriptae uniquement sur le forum ?
Sinon, si le code n'est pas un exemple, pourquoi ne pas utiliser Append(newtext) ?

[sematimo]

Bonjour
oui nextext est une erreur de frappe.
Je n'utilise pas append car le de nouveau texte ne sera pas forcément ajouter à la fin.

[tourlourou]

Bonsoir,

Pour un fichier texte, pourquoi ne pas utiliser un TStringList et ses méthodes LoadFromFile et SaveToFile ?

[sematimo]

bonsoir
oui je peux utiliser un stringlist mais je voudrai bien savoir pourquoi le blockwrite ne marche pas

[Roland Chastain]

Bonjour !

Il faut l'écrire comme ceci :

Code :

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

1
2
3
4
5
6
var
  s: string;
 
begin
  { ... }
  BlockWrite(F, s[1], 19);

Ou comme ceci :

Code :

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

1
2
3
4
5
6
var
  s: string;
 
begin
  { ... }
  BlockWrite(F, pchar(s)^, 19);

[jurassic pork]

Hello,

Bonjour à tous j'ai un souci avec blockwrite.
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);

.

Quand tu dis que tu utilises un code met nous exactement ce que tu utilises parce que le code que tu as mis ne risque pas de marcher :
nextext n'est pas défini et newtext.Length n'existe pas et provoque une erreur à la compilation : il faut mettre Length(newtext)
en plus il n'y a pas 19 mais 20 caractères dans la chaîne.
Comme l'indique Roland, il faut mettre newtext[1] et pas newtext dans l'appel du BlocWrite et pourquoi ? :
Blockwrite n'attend pas une chaine mais un Const pour ce paramètre :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure BlockWrite(

  var f: file;

  const Buf;

  Count: Int64;

  var Result: Int64

);

avec une chaîne constante cela fonctionne mais avec une string cela ne marche pas on transmet l'adresse de la variable, avec newtext[1] on transmet l'adresse du contenu de la variable ( dites moi si je dis une bêtise )

Ami calmant, J.P

[sematimo]

Merci à vous 2 pour vos explications.