Problème de noob ecriture/lecture fichier texte

Problème de noob ecriture/lecture fichier texte - Delphi/Pascal - Programmation

Marsh Posté le 20-10-2004 à 17:38:50    

Voila mon code (je débute sous delphi :D )
 
Mon but est de detecter une chaine nommée "setinfo clan " dans un fichier texte, et de supprimer la ligne correspondante. ensuite je veux pouvoir append une autre chaine.
 
le problème c'est qu'apparemment en delphi on peut pas lire et écrire en live... un conseil?
 

Code :
  1. procedure ajouterInfos(path, num: String);
  2. var
  3. fichierUserConfig: TextFile;
  4. tmpS: string;
  5. begin
  7. AssignFile(fichierUserConfig, path);
  8. Reset(fichierUserConfig);
  9. {parcours du fichier en lecture pour detecter la chaine}
  10. while not Eof(fichierUserConfig) do
  11.     begin
  12.       Readln(fichierUserConfig, tmpS);
  13.       if Pos('SETINFO CLAN', Uppercase(tmpS)) < 0 then
  14.       Dialogs.ShowMessage('Manip déja effectuée ou n° d'équipe incorrect');
  15.        {la on a trouvé la chaine, je voudrais supprimer la ligne}
  20.     end;
  22.   CloseFile(fichierUserConfig);
  27. Append(fichierUserConfig);
  28. Writeln(fichierUserConfig, 'setinfo clan '+num);
  29. CloseFile(fichierUserConfig);
  30. end;


 
Merci pour votre indulgence !!!


Message édité par spitagor le 21-10-2004 à 12:21:57
Reply

Marsh Posté le 20-10-2004 à 17:38:50   

Reply

Marsh Posté le 21-10-2004 à 12:23:02    

Un ne peut pas "supprimer" un bout d'un fichier comme ça.
Une manière plus facile de le faire serait d'utiliser un TStringList, faire un LoadFromFile, supprimer la ligne, ajouter ce qu'il faut, puis faire un SaveToFile.

Reply

Sujets relatifs:

Leave a Replay

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