im FileStream bestimmte Zeichen ersetzen

[Satty67]

Hab es mal gemessen... die Variante von himitsu ist etwa 50x schneller

Falls es überhaupt noch jemand interessiert

Delphi-Quellcode:

procedure MakeZeroFilledFile;
var
  FileStream : TFileStream;
  Buffer : array[0..1023] of Byte;
  i : Integer;
begin
  FileStream := TFileStream.Create('F:\WorkTemp\Leerfile.dat', fmCreate);
  FillChar(Buffer,SizeOf(Buffer),#0);
  for i := 0 to (1024*10) do
    FileStream.Write(Buffer,SizeOf(Buffer));
  FileStream.Free;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  aString : String;
begin
  MakeZeroFilledFile;
  StopUhr.Start;
  aString := FileToStringErsetze2('F:\WorkTemp\Leerfile.dat','X',#0);
  StopUhr.Stop;
  ShowMessage(IntToStr(Length(aString))+' - '+StopUhr.StoppedTimeStr);

  MakeZeroFilledFile;
  StopUhr.Start;
  aString := FileToStringErsetze('F:\WorkTemp\Leerfile.dat','X',0);
  StopUhr.Stop;
  ShowMessage(IntToStr(Length(aString))+' - '+StopUhr.StoppedTimeStr);
end;