Ergebnis der Suchanfrage

• Forum: Neuen Beitrag zur Code-Library hinzufügen

  Re: TBufferedFileStream

    Delphi
    by Deep-Sea, 16. Sep 2009
  Ich wollte mal einen Fehler melden.
  Folgendes Beispiel, bei dem ich zu Testzwecken die Konstante MaxBufSize auf 4 gesetzt habe:
  procedure TForm1.Button1Click(Sender: TObject);
  var
  S: AnsiString;
  begin
  With TBufferedFileStream.Create('C:\Test.txt', fmCreate) do
  try
  S := 'ABC';
  Write(S, Length(S));