Discussion :

[Tree81]

Bonjour,

Je conçois une application, et je dois pour le moment retourner un fichier avec des renseignements écrit en dur dans le code.
J'aurai voulu savoir si ma méthode était la bonne.

Dans le code source, faire appel au fichier.

Dans une unité utilisé le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
1.procedure X(Sender: TObject);
2.var
3.//on crée une variable Textfile
4. fichier: textfile;
5.begin
6.assignfile(fichier ,'nom_du_fichier.txt');
7.Reset(fichier); //Si vous voulez réouvrir un fichier sans effacer le contenu, ou bien 
8.                           //Rewrite(fichier); si vous voulez ecraser le fichier
9.
10.Write(fichier,'ce kon veu écrire'); //ajoute un mot dans le fichier
11.WriteLn(fichier,'ce kon veu encore  écrire'); //ajoute une ligne au fichier
12.
13.closefile(fichier); //ferme le fichier
14.end;

est ce bien cela ??

Je vous remercie

[tourlourou]

Je n'ai pas bien compris qui voulait écrire
mais la méthode semble correcte.

[Tree81]

Je n'ai pas bien compris =/

Je dois juste pour le moment écrire un fichier type avec des informations écrites en dur dans le code.

Ces informations doivent être inscrite dans un fichier texte.

[ShaiLeTroll]

Quel est le problème ? Ton code semble bon !
Tu as une erreur ?
C'est un dialogue de sourd !

Tutoriel Lire et écrire dans les Fichiers en Delphi
La Référence : Guide Pascal et Delphi - XIII. Utilisation des fichiers

[Tree81]

Le code concernant le fichier , s'écrit-il dans un frm ou peut on le placer dans une boucle if directement après le begin?
mon fichier ne se crée pas

[ShaiLeTroll]

Ah, OK, tu ne sais pas où le mettre le Code !
Tu es TRES Débutant !

frm ? c'est du Visual Basic ça !
C'est mal parti : V-C. Structure d'un programme Pascal

Il y a plein de possibilité
Tu veux faire un programmes Console DOS ou Windows ?
Pour une Console DOS, directement dans le DPR, c'est très moche mais ça fonctionne,
Pour Windows, dans le OnClick d'un TButton, cela aurait sa place, surtout vu le paramètre Sender !

Commence par le début, avoir un minimum conscience de l'environnement Delphi, une fois que tu auras un peu avancé, tu pourras te lancer des l'écriture de fichier

Evite de recopier du code que tu ne comprends pas !
C'est un peu ce que tu as fait là ! non ?

[Tree81]

Je suis stagiaire , et je ne connais pas du tout delphi, je travail en java habituellement, mais il faut bien apprendre autre chose...et je suis obligée de faire cette étape.
Je me suis déjà un petit peu formé sur l'environnement de Delphi.
Cependant, j'avais commencé un bout de code avec quelqu'un qui s'y connaissait et j'ai un fichier qui se nomme carte_frm.
C'est ici que je voulai mettre mon code ecriture de fichier.
Je vais le mettre dans un OnClick alors!

[philnext]

Ben oui dans le OnClick d'un bouton c'est très bien.

[Tree81]

Ma question sera peut être bête mais si je le met dans un OnClick, lorsque l'application va s'exécuter il nous faudra alors cliquer sur un bouton pour avoir le fichier?

[ShaiLeTroll]

Evidemment !

Il existe aussi le TForm.OnCreate qui se produira dès la création de la fenêtre !

Mais, comme je l'ai déjà écrit, si tu veux un mini programme (sans fenêtre) tout le code dès le DPR bien moche :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
program Tree81;
 
// uses System; comme inclu par défaut, inutile
 
var
  Fichier: TextFile;
 
begin
  AssignFile(Fichier, 'nom_du_fichier.txt'); // Fichier dans le même Dossier que le programme
  Reset(Fichier);
 
  Write(Fichier, 'ce kon veu écrire'); 
  WriteLn(Fichier, 'ce kon veu encore écrire'); 
 
  CloseFile(Fichier);
end.

Je suis stagiaire ... j'avais commencé un bout de code avec quelqu'un qui s'y connaissait

Cette personne ne pourrait pas t'aider un peu plus ?

[Tree81]

Elle n'est pas toujours disponible, et je dois avancer...

Merci pour vos réponses, mais le fichier va se créer où avec ce bout de code?

[ShaiLeTroll]

Elle n'est pas toujours disponible, et je dois avancer...

Si tu veux avancer : cours de programmation Delphi & Pascal : Pour débuter
Il te faut lire celà impérativement, le forum n'a pas vocation de te former !

Merci pour vos réponses, mais le fichier va se créer où avec ce bout de code?

En plus, tu le lit pas le code et commentaire fourni !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
  AssignFile(Fichier, 'nom_du_fichier.txt'); // Fichier dans le même Dossier que le programme

si tu veux être sur de l'emplacement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
  AssignFile(Fichier, ExtractFilePath(Application.ExeName) + 'nom_du_fichier.txt'); // Fichier dans le même Dossier que le programme

Le code ci-dessus nécessite SysUtils et Forms dans uses, ce qui suit donne la même chose SANS dépendance :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
  AssignFile(Fichier, ExtractFilePath(ParamStr(0)) + 'nom_du_fichier.txt'); // Fichier dans le même Dossier que le programme

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
  AssignFile(Fichier, 'C:\Dossier\nom_du_fichier.txt'); // Le chemin C:\Dossier DOIT exister sinon utilise ForceDirectories

[Tree81]

Ok.Merci