Eigenes Zeichen für Zeilenende bei ReadLN

[Ginko]

Also wenn sie fertig ist sollte sie so an die 200Mb sein. Vielleicht eher nur groß ...
Stringliste sollte dann rausfallen...

[Bernhard Geyer]

ReadLn dürft doch schon auf der Liste der gefährdeten Funktionen stehen.
Sie sind eh eingeschränkt (Kein Unicode-Support), Verursachen teilweise komische Fehler (umstellung auf TFileStream und Co-Methoden haben die Fehler verschwinden lassen) und könnten im Rahmen des zukünftigen LLV-Compilerprojektes entfernt werden.

[Ginko]

Ist es bei TFileStream und Co-Methoden auch möglich mit Textdateien so zu arbeiten, dass nicht die ganze Datei in den Speicher geladen wird ?

[Sir Rufo]

Zitat von Ginko:

Ist es bei TFileStream und Co-Methoden auch möglich mit Textdateien so zu arbeiten, dass nicht die ganze Datei in den Speicher geladen wird ?

Ein TStream ist erst einmal nur eine Ansammlung von zusammenhängenden Bytes, die z.B. in einer Datei TFileStream liegen oder im Speicher TMemoryStream.

[Ginko]

Delphi-Quellcode:

var
  FileStrm1: TFileStream;
  tmpStr1, SuchWort: String;
  len: Cardinal;
  startpos: Integer ;
begin
  FileStrm1:= TFileStream.Create(Dateiname,fmOpenRead or fmShareCompat);
  try
    SuchWort:= Edit2.Text 
    SetLength(tmpStr1, Length(SuchWort));
    startpos:= StrToInt(Edit3.Text);

    FileStrm1.Seek(startpos,soFromBeginning);
    FileStrm1.ReadBuffer(tmpStr1[1], Length(tmpStr1));

    ShowMessage('Wort: ' + tmpStr1 +' || Position: ' +IntToStr(FileStrm1.Position));
  finally
    FreeAndNil(FileStrm1);
  end;

Also bei diesem Vorgang würde der Speicher nur um ca. die größe von tmpStr1 anwachsen ?

[Perlsau]

Zitat von Ginko:

Die Textdatei resultiert aus der Umwandlung einer PDF-Datei in Text und sieht wie folgt aus.

Code:

Zeilentext #13#10
Zeilentext #13#10
...
§Zeilentext #13#10
Zeilentext #13#10
...
§Zeilentext #13#10
Zeilentext #13#10
...

Wobei hier § (in wirklichkeit ist es #12) einen neuen Seitenanfang kennzeichnet (der urspr. PDF-Datei).
Ich glaube baumina hat es auch richtig verstanden, allerdings gibt es bei mir (mit obiger Lösung) noch das Problem das hinter dem § Zeichen noch der Rest mitübernommen wird (§Zeilentext #13#10).

Mir ist noch immer nicht so recht klar, was du eigentlich mit dem Text zu tun beabsichtigst. Nehmen wir einmal an, du liest deine Textdatei via Stringliste ein:

Delphi-Quellcode:

procedure TForm1.TextEinlesen(Datei: String; Liste: TStrings);
begin
   if FileExists(Datei) then
   Liste.LoadFromFile(Datei) else
   ShowMessage('Die Datei existiert nicht.');
end;

Danach hast du in der zurückgelieferten Stringliste die ganze Textdatei. Nun kannst du die bearbeiten: z.B. Nach Seiten-Ende-Zeichen suchen und gegebenenfalls einen leeren Absatz in deine Darstellungskomponente (Memo, RichEdit) einfügen. Ein Zeilen-Ende-Zeichen benötigst du nicht extra, das ist ja schon in der Textdatei enthalten. Wenn du eigentlich Seiten-Ende statt Zeilen-Ende gemeint hattest, solltest du das auch mitteilen. Aber auch Seiten-Ende-Zeichen scheinen in deiner Datei bereits vorhanden zu sein. Ehrlich gesagt, ich verstehe dein Problem nicht. Oder besser: Schreib doch einmal genau, was dir Probleme macht.

[Ginko]

Es soll auf der Seite im Text gesucht werden, allerdings benötige ich zum Suchergebnis zusätzlich Informationen, die am Ende einer Seite stehen, dehalb soll immer eine ganze Seite eingelesen werden.

Ich habe es jetzt erstmal so gelöst das ich einfach mal alle Linebreaks mit StringReplace gelöscht habe und nur das § Zeichen (bzw #12) durch einen Linebreak ersetzt habe. Allerdings geht mir dann die ursprüngliche Strukur verloren...

[Perlsau]

Zitat von Ginko:

Also wenn sie fertig ist sollte sie so an die 200Mb sein. Vielleicht eher nur groß ...
Stringliste sollte dann rausfallen...

Auch das verstehe ich nicht: Was meinst du mit "Stringliste rausfallen"?

[Luckie]

Er ist wohl der Meinung, dass eine StringListe für so große Dateien nicht geeignet wäre.

[Ginko]

Dann hätte ich 200MB Speicherverbrauch wenn ich die ganze Datei in eine Stringlist laden würde...