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.