Ajout au debut d'un document texte deja rempli

Bonjour,

Est-ce faisable d'envoyer au tout début d'un document format txt déjà rempli le contenu d'un TStringList?

Code:

---

1 2 3

TStringList *head = new TStringList() ; head->Add("<!DOCTYPE grammar PUBLIC ""\"-//W3C//DTD GRAMMAR 1.0//EN""\"""\"tasr://teliSpeech/w3c/grammar.dtd""\">"); head->SaveToFile(OpenDialog1->FileName);

---

Merci de m'éclairer si c'est faisable!
Thx

En chargeant le contenu de ton fichier dans un TStringList, et en utilisant AddStrings dans un second TStringList:

Code:

---

1 2 3 4 5 6 7 8 9

TStringList *l1 = new TStringList() ; TStringList *l2 = new TStringList() ; l1->LoadFromFile( "C:\\fichier.txt" ) ; l2->Clear() ; l2->Add( "LIGNE NUMERO 1" ) ; l2->AddStrings( l1 ) ; l2->SaveToFile( "C:\\NouveauFichier.txt" ) ; delete l1; delete l2 ;

---

Merci à toi encore une fois