Soyez le premier à donner votre avis sur cette source.
Snippet vu 38 637 fois - Téléchargée 31 fois
procedure X(Sender: TObject); var //on crée une variable Textfile fichier: textfile; begin assignfile(fichier ,'nom_du_fichier.txt'); Reset(fichier); //Si vous voulez réouvrir un fichier sans effacer le contenu, ou bien //Rewrite(fichier); si vous voulez ecraser le fichier Write(fichier,'ce kon veu écrire'); //ajoute un mot dans le fichier WriteLn(fichier,'ce kon veu encore écrire'); //ajoute une ligne au fichier closefile(fichier); //ferme le fichier end;
23 avril 2010 à 14:16
13 févr. 2008 à 19:10
(lors du reset ou rewrite ) :
{$I-}
reset(F); // initialisation du fichier à la lecture
{$I+}
If (IOresult = 0) then // repérage des erreurs
begin
etc......
Grosso modo, les I- et I+ encadrent la zone à risque. Il affecte à IOresult le numéro de l'erreur (exception) levée.
Si IOresult = 0, alors il n'y a pas d'erreurs. Et ca vous évite tous les plantages lourdeaux et évitables.
Vous trouverez facilement les correspondances code/erreurs sur le web, pour traiter les erreurs indépendamment.
Voilou !
6 juin 2007 à 17:04
Non : un fichier texte ne contient que du texte : il ne contient aucune info sur la fonte...à moins de l'écrire comme un fichier ini et d'y mémoriser le nom de la fonte. Mais tu devras créer un programme utilisant cette information.
2 mai 2007 à 21:37
30 avril 2007 à 00:19
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.