Problème avec blockwrite

Bonjour à tous j'ai un souci avec blockwrite.

Code:

---

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:

---

BlockWrite (F,nextext,newtext.Length);

---

le nouveau texte n'est pas enregistré.

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) ?

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.

Bonsoir,

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

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

Bonjour !

Il faut l'écrire comme ceci :

Code:

---

1 2 3 4 5 6

var s: string;   begin { ... } BlockWrite(F, s[1], 19);

---

Ou comme ceci :

Code:

---

1 2 3 4 5 6

var s: string;   begin { ... } BlockWrite(F, pchar(s)^, 19);

---

;)

Hello,

Citation:

---

Envoyé par sematimo

Bonjour à tous j'ai un souci avec blockwrite.
Là mon texte est bien ajouter mais si j'utilise ce code

Code:

---

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:

---

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 :roll: )

Ami calmant, J.P

Merci à vous 2 pour vos explications.