Lesen, Schreiben und mehr in Textdateien - TFileStream, ...?

[alzaimar]

Was Du machen könntest, ist Folgendes:

Delphi-Quellcode:

Procedure ProcessFile (aFile : String);
Var
  fIn, fOut : TFileStream;

Begin
  fIn := TFileStream.Create (aFile, fmOpenRead);
  Try
    fOut := TFileStream.Create (ExtraceFilePath (aFile)+'Temp.$$$', fmCreate);
    Try
      While ReadString (fIn, aString) Do 
        WriteString (fOut, TranslateLine (aString));
    Finally
      fOut.Free;
    End;
  Finally
    fIn.Free;
  End;
  DeleteFile (aFile);
  RenameFile (ExtraceFilePath (aFile)+'Temp.$$$', aFile);
End;

Die Funktion 'TranslateLine' soll dann die Zeile übersetzen... Was ich hier veranschaulichen wollte, ist das rüberschaufeln und gleichzeitige Übersetzen. Wenn Du das hinbekommst, sollte es eigentlich recht flott gehen... Die ReadString und WriteString Routinen musst Du dir noch zurechtbasteln.