Discussion :

[delphino7]

bonjour

j'ai ecri un program qui transfert des donnés d'une table vers fichier text voila le source

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
17
procedure TForm1.Button10Click(Sender: TObject);
Var
  F: TextFile;
  Stg:String;
begin
 
  Stg:=table_employ.FieldValues['Nom_employ'].asstring; 
  AssignFile(F,'d:\table\template\test.txt');
  if FileExists('d:\table\template\test.txt') then
    Append(F)
  else
    Rewrite(F);
  Writeln(F,Stg);
  CloseFile(F);
end;
 
end;

le program ce compile mais quand je click sur le boutton il ne ce passe rien !!!!!!!!

quelqu'un peu m'aider ?

merci

[Linkin]

Le fichier n'est pas créé? ou
Il n'y a pas de ligne qui soit ajoutée?

[delphino7]

mais es que le source est bon ou pas ou es que je doit modifier ?!!!!!!

[ero-sennin]

Je dirais que le code est bon, mais comme le suggère Linkin, est ce que le fichier est bien créé si il n'existe pas ?

La variable Stg contient quelque chose ?

[delphino7]

le fichier

Code :

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

test.txt

je l'ai créer dans le repertoire que vous voyé dans le code source !!!!!

[Linkin]

Ok, donc si tu le supprimes, il se recréé automatiquement, quand tu appuies sur le bouton?

[delphino7]

j'ai supprimer le boutton et j'ai ajouter un autre avec le meme source maintenant il m'affiche une message d'erreur

operation de variant incorrecte

[ero-sennin]

Cette erreur se produit où exactement ?
Comme ça, on ne peut pas deviner

[delphino7]

on clickon sur le bouton pour lancer la procedure

[Frank]

Bonjour,

regardes ceci dans la FAQ.

Je pense que tu devrais d'abord faire ton test d'existence du fichier, et en fonction du résultat créer ou modifier le fichier.

[delphino7]

le meme message d'ereur !!!!

j'ai une question es que dans uses il faut déclaré quelque chose ?!!!!!

[Frank]

le meme message d'ereur !!!!

j'ai une question es que dans uses il faut déclaré quelque chose ?!!!!!

Je te conseille de mettre un point d'arrêt dans ton code et de suivre son exécution en mode pas à pas.

[delphino7]

ok je vais l'executé pas a pas

voila le code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Var
  F: TextFile;
  Stg:String;
begin
   ForceDirectories('d:\table\template');
  Stg:=table_employ.FieldValues['Nom_employ'].asstring; //c est un tcombobox
  AssignFile(F,'d:\table\template\test.txt');
  if FileExists('d:\table\template\test.txt') then
    Append(F)
  else
    Rewrite(F);
  Writeln(F,Stg);
  CloseFile(F);
end;

[Nono40]

j'ai supprimer le boutton et j'ai ajouter un autre avec le meme source maintenant il m'affiche une message d'erreur

Vu l'erreur, seule la ligne

Code :

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

Stg:=table_employ.FieldValues['Nom_employ'].asstring;

peut être en cause de l'erreur. Essaye déjà avec :

Code :

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

stg:='toto'

Puis

Code :

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

Stg:=table_employ.FieldNyName('Nom_employ').asstring;

[delphino7]

ça marche avec

Code :

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

 Stg:=table_employ.FieldbyName('Nom_employ').asstring;

et aussi

avec

Code :

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

 Stg:='toto'

mais pourquoi le fichier ne s'ouvre pas tout seul il faut que que j'aille dans le répertoire double clické pour l'ouvrire !!!

[ero-sennin]

Heu, c'est normal que le fichier ne s'ouvre pas tout seul.
Pour ce faire, tu peux regarder du coté d'un ShellExecute.

Le fait de créer un fichier et de rajouter des informations ne l'ouvre pas ..., ce qui est logique

[delphino7]

donc c'est résolu

merci