(Large) String - Stockage dans TfileStream, Delphi 7. Quel est le moyen le plus rapide?

Il n'y a rien de spécial à propos des chaînes larges, de lire et d'écrire aussi vite que possible que possible, vous devez lire et écrire autant que possible en une fois:

procedure TForm1.Button1Click(Sender: TObject);
var
  Str: TStream;
  W, W2: WideString;
  L: integer;
begin
  W := 'foo bar baz';

  Str := TFileStream.Create('test.bin', fmCreate);
  try
    // write WideString
    L := Length(W);
    Str.WriteBuffer(L, SizeOf(integer));
    if L > 0 then
      Str.WriteBuffer(W[1], L * SizeOf(WideChar));

    Str.Seek(0, soFromBeginning);
    // read back WideString
    Str.ReadBuffer(L, SizeOf(integer));
    if L > 0 then begin
      SetLength(W2, L);
      Str.ReadBuffer(W2[1], L * SizeOf(WideChar));
    end else
      W2 := '';
    Assert(W = W2);
  finally
    Str.Free;
  end;
end;

Les widssers contiennent une «chaîne» de Widecharar, qui utilisent 2 octets chacun. Si vous souhaitez stocker les chaînes UTF-16 (utilisez les withestrings en interne) dans un fichier et que vous pouvez utiliser ce fichier dans d'autres programmes tels que le Bloc-notes, vous devez écrire un Mark d'octet premier: # $ feff .

Si vous le savez, l'écriture peut ressembler à ceci: xxx

lecture peut ressembler à ceci: xxx