FILE USER

Leirn Messages postés 30 Date d'inscription lundi 13 mai 2002 Statut Membre Dernière intervention 12 février 2004 - 23 mai 2002 à 17:21
Leirn Messages postés 30 Date d'inscription lundi 13 mai 2002 Statut Membre Dernière intervention 12 février 2004 - 23 mai 2002 à 17:21
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/11913-file-user

Leirn Messages postés 30 Date d'inscription lundi 13 mai 2002 Statut Membre Dernière intervention 12 février 2004
23 mai 2002 à 17:21
pour preciser encore plus la question, TPascal 7.01 FR est dispo gratos sur le site de borland
cs_Dalamar Messages postés 63 Date d'inscription samedi 22 décembre 2001 Statut Membre Dernière intervention 22 décembre 2003
17 mai 2002 à 16:12
Pour répondre à ta question, j'utilise Dev-Pascal et Turbo pascal 7.0 de Borland
cs_Nono40 Messages postés 962 Date d'inscription mercredi 3 avril 2002 Statut Membre Dernière intervention 12 septembre 2006 2
17 mai 2002 à 00:38
Il y a encore des utilisateurs de Turbo Pascal ici ?!?!?
Quelle version utilises-tu ?

Note pour Bestiol : Try...Finally et Try...Except n'existent pas dans le Turbo Pascal...

Note pour ceux qui veulent essayer le code dans Delphi :
- créer un application console et copier le source ci-dessus.
- Remplacer Uses crt,dos; par Uses Sysutils;
- supprimer le clrscr; car cette fonction n'existe plus.( elle effaçait l'écran )
- Remplacer les WriteLn(); par WriteLn; car cette syntaxe n'est plus acceptée par Delphi.
- Remplacer les ReadLn(); par ReadLn; car cette syntaxe n'est plus acceptée par Delphi.

Haaaa, le bon vieux temps du turbo pascal... Que de souvernirs qui reviennent...

Nono
cs_Dalamar Messages postés 63 Date d'inscription samedi 22 décembre 2001 Statut Membre Dernière intervention 22 décembre 2003
16 mai 2002 à 23:20
Merci du conseil, je viens juste de commencer en Pascal et je ne connaissait pas cette méthode.
cs_Bestiol Messages postés 833 Date d'inscription dimanche 6 janvier 2002 Statut Membre Dernière intervention 3 novembre 2005 1
16 mai 2002 à 14:02
Ca m'a l'air sympa... J'ai regardé rapidement:
Tu fais pas de vérification en cas d'erreur, de présence d'un fichier du même nom ou un truc comme ça ?? Et puis, je sais que c'est du Turbo Pascal , mais y a pas un truc du genre try...finally ou try...except ?
Ca te permettrait de savoir si le fichier a réellement été créé.
Rejoignez-nous