Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: schnell Zeilen zählen

    Delphi
    by himitsu, 13. Dez 2007
  iRead, falls die Letzte Zeile nicht den Puffer ausfüllte ;)
  iRead := 0;
  while not EOF(fInput) do
  begin
  BlockRead(fInput, cBuffer, BUFFER_SIZE, iRead);
  sBuffer := Copy(cBuffer, 1, iRead);
  Inc(Result, PosCount(#10, Copy(cBuffer, 1, iRead)));
  end;
  if (iRead > 0) and (sBuffer <> #10) then Inc(Result);
• Forum: Object-Pascal / Delphi-Language

  Re: schnell Zeilen zählen

    Delphi
    by himitsu, 13. Dez 2007
  abgesehn wenn die Datei größer als der freie Speicher (RAM) ist und dieses auch speichermäßig etwas unökonomisch ist (an dem Beispiel über 120 MB welche die TStringList in den RAM lädt gegen 8 KB mit CountLines2)
  
  und soll ich dir mal 'ne "kleine" 5 GB Textdatei leihen?
  
  
  @akko5: ein größerer Speicherblock könnte nicht schaden, damit verringern sich die Lesezugriffe und das ganze ist auch...
• Forum: Object-Pascal / Delphi-Language

  Re: schnell Zeilen zählen

    Delphi
    by himitsu, 13. Dez 2007
  Vielleicht solltest du mal nur den Teil in cBuffer auswerten, der auch von BlockRead mit Daten gefüllt wurde?
  
  etwa so:
  Inc(Result, PosCount(#10, Copy(cBuffer, 1, iRead)));
  
  
  PS: es wäre eventuell auch hilfreich, wenn du erwähnt hättes um wieviel falsch gezählt wird.
  
  
  ach ja, das ist ein Reset und kein Re-Set :stupid: