Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: Am meisten vorkommende Zahl

    Delphi
    by negaH, 28. Sep 2006
  const
  BufferSize = 1024 * 8;
  var
  Count: array of Cardinal;
  Buffer: array of Char;
  CharsRead,I: Integer;
  begin
  FillChar(Count, SizeOf(Count), 0);
  SetLength(Buffer, BufferSize);
  with TFileStream.Create('c:\datei.txt', fmOpenRead or fmShareDenyWrite) do