Discussion :

[Galet]

Bonjour,
Comme suite au sujet https://www.developpez.net/forums/d2...er-array-json/ sur lequel je n'ai pas voulu me greffer.

Le format des fichiers Json a plusieurs versions au niveau des fins de ligne. Je rencontre notamment :

et


Avec mon code de lecture du fichier :

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
function LoadFileToStr(const FileName: TFileName): String;
var
  FileStream: TFileStream;
  Bytes:      TBytes;
 
begin
  Result := '';
  FileStream := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
  try
    if FileStream.Size > 0 then
    begin
      SetLength(Bytes, FileStream.Size);
      FileStream.Read(Bytes[0], FileStream.Size);
    end;
    Result := TEncoding.ANSI.GetString(Bytes);
  finally
    FileStream.Free;
  end;
end;

Le CR+LF déclenche une exception mais pas le LF seul.

J'ai trouvé plusieurs solutions plus ou moins complètes pour retrouver un format adéquat et constant.
Existe-t-il un moyen efficace et simple de résoudre ce problème ?

Belle journée à tous ...