An Anfang der Datei springen(Textfile)

[gutz]

Hi!

Ich hätte da mal ne kurze frage:
Ist es irgendwie möglich bei einer Textfile datei irgendwie an den Anfang zu springen und da ein Wert zu schreiben? Mit Reset gehts ja irgendwie nicht. Würd vielleicht irgendwie Append gehen mit "an den Anfang springen" ?!? Oder wüsste jemand wie ich die letzten wert bei einer textfile auslesen könnte (letzte zeile, danach eof).

mfg
gutz

[wido]

1. TEXTFILE ist böse. Wenn Du ernsthaft mit Textdateien arbeiten willst, benutz TStringList.
2. seek

[everdream]

Musst du die Textfile unbedingt benutzen? Wenn nicht, könntest du ja kurz dein aktuelles Projekt schildern und die Aufgabe der *.txt darin erklären.

[marabu]

Hallo gutz,

Textdateien werden wegen ihrer variablen Struktur in der Regel nur sequentiell verarbeitet.

Je nach Größe einer Textdatei liest man nur die gewünschten Zeilen ein

// this space intentionally left blank oder man liest alle Zeilen und verwirft die ungewollten später.

Delphi-Quellcode:

procedure ReadLines(const fn: TFileName; s: TStrings; count: Integer);
begin
  s.BeginUpdate;
  try
    if count = 0
      then s.Clear
      else s.LoadFromFile(fn);
    if count < 0 then
      while s.Count > count do
        s.Delete(0);
    if count > 0 then
      while s.Count > count do
        s.Delete(count);
  finally
    s.EndUpdate;
  end;
end;

Getippt und nicht getestet.

Grüße vom marabu

[gutz]

Hallo!

Danke für eure Antworten. Einen bestimmten Grund für die Textfile gibt es nicht, hatte immer wenig zu speichern bzw. zu laden und mit Textfile konnte ich's ziemlich schnell machen. War nur diesmal eine Ausnahme, wo ich einen Wert vor dem laden brauchte, der aber erst nach dem (letzten) speichern feststand(gespeichert wurde mit append). Ich denke ich werde es dann mal mit TString versuchen ... hat wohl mehr möglichkeiten. Danke trotzdem marabu für den code.

mfg
gutz

[Blackheart]

Vieleicht solltest du dir mal Ini anschauen damit geht das um einiges leichter.