Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: schnell Zeilen zählen

    Delphi
    by akko5, 13. Dez 2007
  Ja Danke. Hab auch noch einen kleinen Fehler gefunden, dass die letzte Zeile nicht immer gezählt wurde.
  So sollte die Funktion perfekt sein:
  function PosCount(const SubStr, S: String): Integer;
  var
  iPos: Integer;
  begin
  Result := 0;
  iPos := 0;
  repeat
  iPos := PosEx(SubStr, S, Succ(iPos));
• Forum: Object-Pascal / Delphi-Language

  Re: schnell Zeilen zählen

    Delphi
    by akko5, 13. Dez 2007
  Oh, Mann vielen Dank das habe ich nicht bedacht.
  
  Danke :spin2:
  
  @Ghostwalker
  Für kleine Dateien gut, aber für große ungeeignet.
  
  
  //Für eine 120 MB Datei, braucht die 2. Funktion ~ 350 ms, wenn das nicht mal schnell ist! :-D
• Forum: Object-Pascal / Delphi-Language

  schnell Zeilen zählen

    Delphi
    by akko5, 13. Dez 2007
  Hallo,
  Ich bin gerade dabei, einen Code zu schreiben, der schnell die Zeilen einer Textdatei zählt.
  
  Zuerst hatte ich das, funktioniert zwar sehr gut, ist aber für große Dateien einfach zu langsam.
  function CountLines1(const sFile: String): Integer;
  var
  fInput: TextFile;
  begin
  Result := 0;
  AssignFile(fInput, sFile);