Bonjour à tous,

J'ai un problème avec TFileStream sur delphi 7, je fais le simple code ci-dessous.
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
 
procedure TForm1.Button1Click(Sender: TObject);
var
  fs: TFileStream;
  buffer: array[0..255] of char;
  str: string;
  len: integer;
begin
  fs:= TFileStream.Create('D:\Travaux\test.txt', fmOpenReadWrite or fmShareDenyNone);
  try
    str:= 'aaaaaa';
    //fs.Position:= 0;
    //len:= fs.Read(buffer, Length(buffer));
    fs.seek(0, soFromEnd);
    fs.Write(PChar(str)^, Length(str));
  finally
    fs.Free;
  end;
end;
Le contenu du fichier test.txt contient seulement test123 et j'essaye d'ajouter simplement des "a" à la fin, je n'ai aucun problème au bureau, mais quand j'essaye sur mon pc, le contenu du fichier test.txt devient test123慡慡慡, alors qu'il devrait écrire test123aaaaaa.
WIN7 64 sur les deux pcs
Quelqu'un aurait-il une idée?