Discussion :

[Ema1714]

Salut, je veux réaliser un programme en delphi qui a pour but de sasir les produits d'un magazin(quelques un) puis sasir une commande particulière(peut etre composée de plusieurs produits) , ensuite afficher les caractéristiques des produits commandées, et finalement calculer le ht fénéral, ttc général et le montant à payer,les produits seront sasis dans un fichier, mais ça marche pas et voila les message qui arrete l'exécution: classe d'exeption einouterror avec le message accés fichier refusé, et voila une partie du 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
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
type
    produit=record
            code:integer;
            designation:string[30];
            prix_u:integer;
            q_stocke:real;
            categorie:string[20];
            tva:integer;
            end;
var
  Form1: TForm1;
  f:file of produit;
  p:produit;
  i:integer;
  fin:boolean;  a,b:integer; ttcg,thtg,montant:integer;
implementation
 
{$R *.DFM}
//sasie des produits :
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
assignfile(f,'d:\tp algo:\prosafa.dat');
rewrite(f);
 
i:=1;
while i<=n do
BLOC D 'INSTRUCTIONS
 
 end;

[peter27x]

Déjà est il normal d'avoir le signe deux points (":") dans "tp algo:" ? Car normalement c'est pas autorisé dans un nom de répertoire.

[Ema1714]

L'erreur est corrigée, mais le problème reste le même!, sachant que le fichier est bien crée dans mon répertoire.

[skywaukers]

bonjour,

le fichier est bien créé par l'application et bien mis à jour lors de chaque exécution ? Ou serait-il déjà là et que l'application n'a pas le droit d'y accéder ?

@++
Dany

[camatchou]

salut safa,

essayez d'éviter le blanc qui sépare tp de algo, et les deux points qui suivent algo

ex : 'd:\tp_algo\prosafa.dat'

bon courage