direkt positioniertes Schreiben in eine Datei

[Bigeddie]

Hallo,

ich benutze Delphi5 und habe Dateien welche Zeilen mit einer Länge von 5000 Zeichen.
Diese Datei kann ich zwar mit einem TStringlistObjekt einlesen und manipulieren, aber besteht z.B. die Möglichkeit ein bestimmtes Zeichen oder eine Zeichenkette in einer bestimmten Zeile explizit ändern? Sprich kann ich in einem TextFile den Schreib/Lesepointer direkt an eine bestimmte stelle innerhalb der Datei setzen?

Viele Grüße

Bigeddie

[Bernhard Geyer]

Da wirst Du direkt mit TFileStream arbeiten müssen.

[Luckie]

Du kannst doch jede Zeile direkt ansprechen, wenn du die Textdatei in der StringListe hast.
s := sl.Lines[5];

[Bigeddie]

Kann ich, dann muß ich jedoch immer das ganze File im Speicher halten, oder?

[shmia]

Delphi-Quellcode:

procedure SaveStringToFileAtPos(const filename, data:string; Position : Integer);
var
   fs : TStream;
begin
   fs := TFileStream.Create(filename, fmReadWrite or fmShareDenyWrite);
   try
      fs.Position := Position;
      fs.WriteBuffer(data[1], Length(data));
   finally
      fs.Free;
   end;
end;

[Bigeddie]

Vielen Dank für eure Hilfe, hat mir sehr geholfen!!!!!!!!!!!!!!!!!

Grüße

Bigeddie