Voila mon code (je débute sous delphi 
)
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 :
- procedure ajouterInfos(path, num: String);
- var
- fichierUserConfig: TextFile;
- tmpS: string;
- begin
- AssignFile(fichierUserConfig, path);
- Reset(fichierUserConfig);
- {parcours du fichier en lecture pour detecter la chaine}
- while not Eof(fichierUserConfig) do
- begin
- Readln(fichierUserConfig, tmpS);
- if Pos('SETINFO CLAN', Uppercase(tmpS)) < 0 then
- Dialogs.ShowMessage('Manip déja effectuée ou n° d'équipe incorrect');
- {la on a trouvé la chaine, je voudrais supprimer la ligne}
- end;
- CloseFile(fichierUserConfig);
- Append(fichierUserConfig);
- Writeln(fichierUserConfig, 'setinfo clan '+num);
- CloseFile(fichierUserConfig);
- end;
|
Merci pour votre indulgence !!!
Message édité par spitagor le 21-10-2004 à 12:21:57
