Delphi-Tutorials

Worum es geht:
Folgende Funktion fügt an der angegebenen Position in der Datei eine Zeichenkette ein. Dabei werden die folgenden Zeichen in der Datei nicht überschrieben, sondern einfach weitergeschoben.
So geht's:

//Funktion zum Einfügen des Stringes:
function PasteStr(aStr, aPasteStr: Ansistring; aPastePos: LongInt): Ansistring;
begin
  case aStr[aPastePos] of #10: inc(aPastePos); end;
  system.Insert(aPasteStr, aStr, aPastePos);
  result := aStr;
end;

//Beispielaufruf mit Laden aus Datei:

procedure TForm1.btnPasteStrClick(Sender: TObject);
var  fname :string;
begin
  with TStringList.Create do begin
    fname := 'C:\MyDelphi\Test_PasteString\test.txt'; //Dateiname festlegen
    LoadFromFile(fname);  //Text aus Datei laden
    text := PasteStr(text, '##EinfügeString##', 20); //Text einfügen
    SaveToFile(fname);   //Neuen Text in Datei speichern
    free;                //Stringliste freigeben
  end;
end;

Quelle: Spotlight-Forum