Werte in einen Text einfügen und dann speichern

[DeddyH]

Delphi-Quellcode:

var sl: TStringlist;
    s: string;
    Erg: integer;
begin
  sl := TStringlist.Create; //Erzeugen der Stringliste
  try
    s := 'Dies ist mein Text.';
    Insert('nicht ',s,10);    //Einfügen eines Strings an Position 10
    sl.Add(s);                //Einfügen des Strings in die Liste
    sl.SaveToFile(sFilename); //Stringliste speichern (sFilename ist dein Dateiname)
    Erg := ShellExecute(Handle,'open',PChar(sFilename),nil,nil,SW_SHOW);
    if Erg < 33 then
      ShowMessage(SysErrorMessage(Erg)); //Datei konnte nicht gestartet werden --> Fehler auswerten
  finally
    sl.Free;
  end;
end;

Du musst noch ShellAPI in die uses-Klausel aufnehmen.