Rajouter une chaine de caractère en début de ligne d'un fichier texteRésolu

Question

Tout est dit dans le sujet. J'en suis au niveau de lire chaque ligne du fichier 
   while not Eof(NomFicRefTxt)do
      begin
      Readln(NomFicRefTxt,Ch);
 ///     Writeln(NomFicRefTxt,'XXXX = ');
      end;
Mais voil&#224; j'aimerai rajouter la chaine  XXXX = en d&#233;but de chaque ligne. Le writeln ne marche pas sur le m&#234;me fichier (ou je ne sais pas l'utiliser !)
Pourriez vous m'aider s'il vous plait ?
Vous remercie d'avance

Gastounelli · Accepted Answer

Je vous remercie bcp,
et du coup vous me donnez la r&#233;ponse &#224; d'autres questions !!
Merci, bonne journ&#233;e

jlen100 · Answer

salut ,

utilise un Tstrings:

var 

TempList: TStrings;

i:integer;

begin

    TempList :=  TStringList.Create;

      try 

    TempList.LoadFromFile('nomdu fichier');

     except

          MessageDlg('Fichier
'+'nomdu fichier'+' introuvable'  , mtError    ,
[mbOk], 0);         exit

      end      else

      begin

      for i: =0 to TempList.count-1 do

     begin

        TempList[i]:='XXXX = '+TempList[i];

     end;

     TempList.SavetoFile('nomdu fichier');

      finally   TempList.Free;     end;

end;

bonne prog

Rajouter une chaine de caractère en début de ligne d'un fichier texte

2 réponses

Votre réponse