Discussion :

[Duffer]

Bonjour

Mon problème est le suivant, je suis en train de créer un petit programme pour écrire un format de fichier spécifique. Or je bloque sur un problème mais je ne sais pas d'ou cela peut venir. J'ai une procedure avec un blockwrite qui doit m'écrire un Edit.Text dans mon fichier sur 132. Donc quand mon Edit fait 8 caractères, il doit me mettre à la suite 124 fois 00.
Mais je ne sais pas pourquoi à la place il me met à certains endroits des 'R au lieu de 00. Comme sur l'image ci dessous.

Mon code est le suivant :

Code :

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

1
2
3
4
5
6
 
NOm_Wad est un Ansistring
 
Nom_Wad := Edit_Nom_Wad.Text;
Setlength(Nom_Wad, 132);
BlockWrite(F, Nom_Wad[1], length(Nom_Wad));

[Linkin]

1. Il doit avoir une incohérence entre la valeur que tu as indique dans le Rewrite ou du Reset et celle que tu essaies d'écrire.
2. SetLength n'initialise pas la chaine de caractère. Ex: tout ce qui est entre l'indice 9 et l'indice 132 contient n'importe quoi.

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
 
//  Nom_Wad2: AnsiString;
//  lStringConversion: AnsiString;
 
 
 Nom_Wad2 := StringOfChar(#0, 132);
  lStringConversion := Edit_Nom_Wad.Text;
  for i := 1 to Length(lStringConversion) do
  begin
    Nom_Wad2[i] := lStringConversion[i];
  end;
 
 
  AssignFile(F, 'd:\test2.txt');
  Rewrite(F, Length(Nom_Wad2));
  BlockWrite(F, Nom_Wad2[1], 1); // Taille:Multiple de la taille de'enregistrement indiqué dans Rewrite
  CloseFile(F);

j'utiliserai plutôt un filestream

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
//  Nom_Wad: array [0 .. 131] of ansichar;
//  lStringConversion: AnsiString;
 with TFileStream.Create('d:\test.txt', fmCreate or fmOpenWrite) do
  begin
    FillChar(Nom_Wad, Length(Nom_Wad), '');
    lStringConversion := Edit_Nom_Wad.Text;
    for i := 1 to Length(lStringConversion) do
    begin
      Nom_Wad[i - 1] := lStringConversion[i];
    end;
    Write(Nom_Wad, Length(Nom_Wad));
    Free;
  end;

[Duffer]

Un grand merci Linkin, les deux solutions fonctionnent parfaitement !