Numérotation dans un fichier

Numérotation dans un fichier - Delphi/Pascal - Programmation

Marsh Posté le 30-10-2003 à 19:56:20    

Bonjour,  
 
Dans un fichier texte, je dois numéroter chaques lignes :  
 
1 blabla  
2 blabla  
......  
 
Sachant que mon fichier contient déjà son texte mais que je dois juste le numéroter . Comment puis-je numéroter mes lignes en Delphi

Reply

Marsh Posté le 30-10-2003 à 19:56:20   

Reply

Marsh Posté le 30-10-2003 à 20:42:17    

Code :
  1. with TStringList.Create do
  2.   try
  3.     LoadFromFile('f.txt');
  4.     for i := 0 to Count-1 do 
  5.       Strings[i] := Format('%d %s', [i, Strings[i]]);
  6.     SaveToFile('f.txt');
  7.   finally
  8.     Free;
  9.   end;


---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed