Function StringToInt et Trim

Version imprimable

:salut: , juste une petite question sur la fonction StringtoInt et Trim: j'ai essayé ces deux fonctions mais je bloque un peu pour y arrriver

Ma prof ma conseillé d'utiliser la fonction "StringtoInt" pour ce bout de code. En gros l'utilisateur doit absolument entrer un nombre de 5 chiffres ( Subject[a].SubRefCode : string) mais quand je tape par exemple le chiffre 12, le programme accepte le chiffre, je suppose que c'est un probleme de string integer
Code:

1 2 3 4 5 6 7 8 Write (' Enter the subject reference code (must be 5 digits): '); Readln (Subject[a].SubRefCode); While not ((Subject[a].SubRefCode > '10000') and (Subject[a].SubRefCode < '99999')) do begin Writeln (' Wrong number, please try again'); Write (' Enter the subject reference code (must be 5 digits): '); Readln (Subject[a].SubRefCode); end;
Si vous pouviez me dire comment ecrire cette fonction et la mettre dans dans ce ptit bout de code, it would be great

La deuxieme fonction que je dois utilisé, c'est la fonction Strim, apparamment pour les problemes de nombre d'espaces. Pour cette fonction je ne sais vraiement pas comment faire parce que je n'en avait jamais entendu parler avant (un ptit exemple ne serait pas de refus :mrgreen: :mrgreen: )

Si vous pouviez m'éclairer un peu sur ces deux points, ce serait bien

merci

fx

05/03/2007, 13h52
philnext
Trim enlève les caractères 'non imprimables' aux extremités des strings.
Code:

1 2 3 sTemp:= ' toto '; sTemp := trim(sTemp); // ici sTemp doit être égal à 'toto'

Pour ton autre pb, les opérateurs de comparaisons sont plus intuitifs avec des nombres. DOnc la plus simple est de transformer ta saisie en Integer avant la comparaison.
Code:

1 2 3 4 5 6 7 8 9 10 11 Write (' Enter the subject reference code (must be 5 digits): '); Readln (Subject[a].SubRefCode); iTemp := IntToStr(Subject[a].SubRefCode); While not (iTemp > 10000) and (Subject[a].SubRefCode < 99999)) do begin Writeln (' Wrong number, please try again'); Write (' Enter the subject reference code (must be 5 digits): '); Readln (Subject[a].SubRefCode); iTemp := IntToStr(Subject[a].SubRefCode); end;
Penses à gérer le cas où ce qui est entré n'est pas un entier (ex : saisie de 'toto')

Autre solution :

Tu vérifies que c'est un integer comme ça

Code:

1
2
3
4
5
6
7
 
  try
    StrToInt(maChaine);
  except
    on E : Exception do
      Showmessage('Ce n''est pas un entier');
  end;

Puis tu regarde la longueur de ta chaine :

Code:

1
2
3
4
5
 
  if Length(maChaine) = 5 then
    //ton traitement si tout est OK
  else
   //ton traitement si pas OK

05/03/2007, 14h36
braecking

ok merci des conseilles ;)

fx

Citation:
Envoyé par pinson
Autre solution :

Tu vérifies que c'est un integer comme ça
Code:

1 2 3 4 5 6 7 try StrToInt(maChaine); except on E : Exception do Showmessage('Ce n''est pas un entier'); end;
Puis tu regarde la longueur de ta chaine :
Code:

1 2 3 4 5 if Length(maChaine) = 5 then //ton traitement si tout est OK else //ton traitement si pas OK
Ton code est parfait pinson mais laisse moi quand même ajouter mon grain de sel ;).

J'ai me bien le TryStrToInt pour la lisibilité (et je crois qu'il est un tantinet plus performant qu'un try/except) :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 var iMonEntier; begin if TryStrToInt(maChaine, iMonEntier) then if Length(maChaine) = 5 then //ton traitement si tout est OK else //ton traitement si pas OK else Showmessage('Ce n''est pas un entier'); end;
Mais c'est juste mon opinion après tout (et TryStrToInt n'est probablement pas disponible dans toutes les versions de Delphi) ;)

05/03/2007, 15h07
pinson

@Slimjoe -> Merci je ne connaissais pas cette fonction.

Dans ce cas, c'est pas mal aussi.
05/03/2007, 18h03
braecking

me revoila :yaisse2: ...lol encore un ptit probleme que j'ai du mal a resoudre (ca arrete pas pour le moment :mouarf: , mais heureusement que ce forum existe sinon :pan: )

Dans cette procedure, j'enregistre des details dans trois files differents (ca marche nikel pas un probleme). Le probleme est qu'a chaque fois que je quitte le programme et que je le relance pour entrer des nouvo details, il supprime les precedant details...

voila ma procedure

Citation:

Procedure NewDetails;
var a, testvar: integer;
begin
AssignFile (ExaminerFile, 'Examiner.dat');
Reset(ExaminerFile);
AssignFile (SubjectFile, 'Subject.dat');
Reset(SubjectFile);
AssignFile (Centrefile, 'Centre.dat');
Reset(CentreFile);
for a:= 1 to testvar
do
begin
Writeln ('');
Writeln ('NEW DETAILS N',testvar);
Write (' Enter the examiner name: ');
Readln (Examiner[a].ExaminerName);
Write (' Enter the examiner number (must be 6 digits): ');
Readln (Examiner[a].ExaminerNo);
While not ((Examiner[a].ExaminerNo > 100000) and (Examiner[a].ExaminerNo <999999))do
begin
Writeln (' Wrong number, please try again');
Write (' Enter the examiner number (must be 6 digits): ');
Readln (Examiner[a].ExaminerNo);
end;
Write (' Enter the examiner address: ');
Readln (Examiner[a].ExaminerAddress);
Write (' Enter the total number of script marked: ');
Readln (Examiner[a].TotalScripts);
Write (' Enter the subject reference code (must be 5 digits): ');
Readln (Subject[a].SubRefCode);
While not ((Subject[a].SubRefCode > '10000') and (Subject[a].SubRefCode < '99999')) do
begin
Writeln (' Wrong number, please try again');
Write (' Enter the subject reference code (must be 5 digits): ');
Readln (Subject[a].SubRefCode);
end;
Write (' Enter the subject name: ');
Readln( Subject[a].SubjectName);
Write (' Enter the payment for marking each script: ');
Readln (Subject [a].SubPaymentScript);
Write (' Enter the centre number (within the range of 10000 to 79999): ');
Readln (Centre[a].Centreno);
Write (' Enter the centre name: ');
Readln (Centre[a].Centrename);
Write (ExaminerFile, Examiner[a]);
Write (SubjectFile, Subject[a]);
Write (CentreFile, Centre[a]);
end;
Closefile (ExaminerFile);
Closefile (SubjectFile);
Closefile (CentreFile);
Readln;
end;

si vous pouviez me mettre le code exacte a rajouter, it would be great

thanks fx

:tagcode:
05/03/2007, 18h06
ecisternas

Essaye append(filename) pour préparer ton fichier à l'ajout de données en fin de ce dernier.
05/03/2007, 18h10
braecking

juste avant les closefile je met append (filename) ? tout ce que je dois faire ?
05/03/2007, 18h56
tourlourou

à la place des Reset()
05/03/2007, 19h02
braecking

ca ne marche pas: incompatible types

fx

Salut,

Tu devrais tester si ton fichier existe avant, donc par exemple, pour le fichier ExaminerFile, tu remplaces:

Code:

1
2
AssignFile (ExaminerFile, 'Examiner.dat');
Reset(ExaminerFile);

par

Code:

1
2
3
4
5
6
7
8
9
10
if FileExists('CheminDuFichier\Examiner.dat')then
begin
AssignFile (ExaminerFile, 'Examiner.dat');
Append(ExaminerFile);// le fichier existe, on l'ouvre à la fin ...
end
else
begin
AssignFile (ExaminerFile, 'Examiner.dat');
rewrite(ExaminerFile);//... sinon on le crée
end;

Normalement ca devrait aller ;)

PS: Si c'est un fichier structuré (apparamment c'est le cas) fait :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
position:longint;
begin
if FileExists('CheminDuFichier\Examiner.dat')then
begin
AssignFile(ExaminerFile, 'Examiner.dat');
Reset(ExaminerFile);
position:=filesize(ExaminerFile);//détermine le nombre d'enregistrement
seek(ExaminerFile,position);//positionnement à la fin du dernier enregistrement (pour une nouvelle insertion)
end
else
begin
AssignFile(ExaminerFile, 'Examiner.dat');
Rewrite(ExaminerFile);
end;
end;

05/03/2007, 20h56
braecking

re c'est moi, merci pour ta reponse, c'est bien le genre de code que je pensais mettre mais apparament il y a une ptite erreur a la ligne :

Append(reset);

'(' expected but ')' found

pas une ptite idee ?

fx
05/03/2007, 21h13
ero-sennin

Oops, petite faute d'inattention de ma part ;)

Remplace ceci

Code:

Append(reset);

par

Code:

Reset(ExaminerFile);

Aussi, si le fichier n'existe pas, il faut faire un rewrite et non un Reset :aie:

Je pense que ca devrait aller ;)

donc normalement si j'ai bien suivit la procedure correct est celle ci :

Code:

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
 
Procedure NewDetails;
var a, testvar: integer;
  Position:longint;
begin
  if FileExists('C:\Documents and Settings\Braecking\Desktop\PROJECT DELPHI\Test Version\Examiner.dat')then
  begin
    Assign(ExaminerFile, 'Examiner.dat');
    Reset (examinerFile) ;
    Position := Filesize(ExaminerFile);   //détermine le nombre d'enregistrement
    Seek(ExaminerFile, Position);        //positionnement à la fin du dernier enregistrement (pour une nouvelle insertion)
  end
  else
  begin
    AssignFile (ExaminerFile, 'Examiner.dat');
    Rewrite(ExaminerFile);
    AssignFile (SubjectFile, 'Subject.dat');
    Rewrite(SubjectFile);
    AssignFile (Centrefile, 'Centre.dat');
       Rewrite(CentreFile);
       Writeln ('How many examiner details do you want to enter? ');
       Readln (testvar);
       for a:= 1 to testvar
        do
         begin
            Writeln ('');
            Writeln ('NEW DETAILS N',a);
            Write (' Enter the examiner name: ');
            Readln (Examiner[a].ExaminerName);
            Write (' Enter the examiner number (must be 6 digits): ');
            Readln (Examiner[a].ExaminerNo);
            While not ((Examiner[a].ExaminerNo > 100000) and (Examiner[a].ExaminerNo <999999))do
             begin
                Writeln (' Wrong number, please try again');
                 Write (' Enter the examiner number (must be 6 digits): ');
                 Readln (Examiner[a].ExaminerNo);
       end;
           Write (' Enter the examiner address: ');
           Readln (Examiner[a].ExaminerAddress);
           Write (' Enter the total number of script marked: ');
           Readln (Examiner[a].TotalScripts);
           Write (' Enter the subject reference code (must be 5 digits): ');
           Readln (Subject[a].SubRefCode);
           While not ((Subject[a].SubRefCode > '10000') and (Subject[a].SubRefCode < '99999')) do
            begin
               Writeln (' Wrong number, please try again');
               Write (' Enter the subject reference code (must be 5 digits): ');
               Readln (Subject[a].SubRefCode);
            end;
           Write (' Enter the subject name: ');
           Readln( Subject[a].SubjectName);
           Write (' Enter the payment for marking each script: ');
           Readln (Subject [a].SubPaymentScript);
           Write (' Enter the centre number (within the range of 10000 to 79999): ');
           Readln (Centre[a].Centreno);
           Write (' Enter the centre name: ');
           Readln (Centre[a].Centrename);
           Write (ExaminerFile, Examiner[a]);
           Write (SubjectFile, Subject[a]);
           Write (CentreFile, Centre[a]);
       end;
       Closefile (ExaminerFile);
    Closefile (SubjectFile);
    Closefile (CentreFile);
       Readln;
  end;
end;  {of procedure}

mais apparamment il quitte le programme desque je veux entrer des nouveaux details. je dois avoir fait une ptite erreur dans mon code
:bug:

fx

Tu as oublié un END!!

Code:

1
2
3
4
5
6
7
8
9
10
11
12
if FileExists('C:\Documents and Settings\Braecking\Desktop\PROJECT DELPHI\Test Version\Examiner.dat')then
begin
AssignFile(ExaminerFile, 'Examiner.dat');
Reset (examinerFile) ;
Position := Filesize(ExaminerFile); //détermine le nombre d'enregistrement
Seek(ExaminerFile, Position); //positionnement à la fin du dernier enregistrement (pour une nouvelle insertion)
end
else
begin
AssignFile(ExaminerFile, 'Examiner.dat');
Rewrite(ExaminerFile);
end;

Aussi, utilise les balise Code STP car la c'est peu lisible !

tu es sur qu'il manque un end ? j'ai verifié et personellement je pense pas quil men manque un ... enfin peut etre que je flashe

voila le code (avec la balise cette fois :mouarf: )

Code:

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
Procedure NewDetails;
var a, testvar: integer;
    Position:longint;
begin
 if FileExists('C:\Documents and Settings\Braecking\Desktop\PROJECT DELPHI\Test Version\Examiner.dat')then
  begin
   Assign(ExaminerFile, 'Examiner.dat');
   Reset (examinerFile) ;
   Position := Filesize(ExaminerFile);   //détermine le nombre d'enregistrement
   Seek(ExaminerFile, Position);        //positionnement à la fin du dernier enregistrement (pour une nouvelle insertion)
  end
 else
  begin
  AssignFile (ExaminerFile, 'Examiner.dat');
  Rewrite(ExaminerFile);
  AssignFile (SubjectFile, 'Subject.dat');
  Rewrite(SubjectFile);
  AssignFile (Centrefile, 'Centre.dat');
  Rewrite(CentreFile);
  Writeln ('How many examiner details do you want to enter? ');
  Readln (testvar);
  for a:= 1 to testvar
   do
    begin
     Writeln ('');
     Writeln ('NEW DETAILS N',a);
     Write (' Enter the examiner name: ');
     Readln (Examiner[a].ExaminerName);
     Write (' Enter the examiner number (must be 6 digits): ');
     Readln (Examiner[a].ExaminerNo);
     While not ((Examiner[a].ExaminerNo > 100000) and (Examiner[a].ExaminerNo <999999))do
      begin
       Writeln (' Wrong number, please try again');
       Write (' Enter the examiner number (must be 6 digits): ');
       Readln (Examiner[a].ExaminerNo);
      end;
    Write (' Enter the examiner address: ');
    Readln (Examiner[a].ExaminerAddress);
    Write (' Enter the total number of script marked: ');
    Readln (Examiner[a].TotalScripts);
    Write (' Enter the subject reference code (must be 5 digits): ');
    Readln (Subject[a].SubRefCode);
    While not ((Subject[a].SubRefCode > '10000') and (Subject[a].SubRefCode < '99999')) do
     begin
      Writeln (' Wrong number, please try again');
      Write (' Enter the subject reference code (must be 5 digits): ');
      Readln (Subject[a].SubRefCode);
     end;
    Write (' Enter the subject name: ');
    Readln( Subject[a].SubjectName);
    Write (' Enter the payment for marking each script: ');
    Readln (Subject [a].SubPaymentScript);
    Write (' Enter the centre number (within the range of 10000 to 79999): ');
    Readln (Centre[a].Centreno);
    Write (' Enter the centre name: ');
    Readln (Centre[a].Centrename);
    Write (ExaminerFile, Examiner[a]);
    Write (SubjectFile, Subject[a]);
    Write (CentreFile, Centre[a]);
   end;
  Closefile (ExaminerFile);
  Closefile (SubjectFile);
  Closefile (CentreFile);
  Readln;
 end;
end;  {of procedure}

Oui il manque bien un END.

Essaie ceci:

Code:

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
Procedure NewDetails;
var a, testvar: integer;
Position:longint;
begin
if FileExists('C:\Documents and Settings\Braecking\Desktop\PROJECT DELPHI\Test Version\Examiner.dat')then
begin
AssignFile(ExaminerFile, 'Examiner.dat');
Reset (examinerFile) ;
Position := Filesize(ExaminerFile); //détermine le nombre d'enregistrement
Seek(ExaminerFile, Position); //positionnement à la fin du dernier enregistrement (pour une nouvelle insertion)
end
else
begin
AssignFile (ExaminerFile, 'Examiner.dat');
Rewrite(ExaminerFile);
end;
AssignFile (SubjectFile, 'Subject.dat');
Rewrite(SubjectFile);
AssignFile (Centrefile, 'Centre.dat');
Rewrite(CentreFile);
Writeln ('How many examiner details do you want to enter? ');
Readln (testvar);
for a:= 1 to testvar
do
begin
Writeln ('');
Writeln ('NEW DETAILS N',a);
Write (' Enter the examiner name: ');
Readln (Examiner[a].ExaminerName);
Write (' Enter the examiner number (must be 6 digits): ');
Readln (Examiner[a].ExaminerNo);
While not ((Examiner[a].ExaminerNo > 100000) and (Examiner[a].ExaminerNo <999999))do
begin
Writeln (' Wrong number, please try again');
Write (' Enter the examiner number (must be 6 digits): ');
Readln (Examiner[a].ExaminerNo);
end;
Write (' Enter the examiner address: ');
Readln (Examiner[a].ExaminerAddress);
Write (' Enter the total number of script marked: ');
Readln (Examiner[a].TotalScripts);
Write (' Enter the subject reference code (must be 5 digits): ');
Readln (Subject[a].SubRefCode);
While not ((Subject[a].SubRefCode > '10000') and (Subject[a].SubRefCode < '99999')) do
begin
Writeln (' Wrong number, please try again');
Write (' Enter the subject reference code (must be 5 digits): ');
Readln (Subject[a].SubRefCode);
end;
Write (' Enter the subject name: ');
Readln( Subject[a].SubjectName);
Write (' Enter the payment for marking each script: ');
Readln (Subject [a].SubPaymentScript);
Write (' Enter the centre number (within the range of 10000 to 79999): ');
Readln (Centre[a].Centreno);
Write (' Enter the centre name: ');
Readln (Centre[a].Centrename);
Write (ExaminerFile, Examiner[a]);
Write (SubjectFile, Subject[a]);
Write (CentreFile, Centre[a]);
end;
Closefile (ExaminerFile);
Closefile (SubjectFile);
Closefile (CentreFile);
//end;
end; {of procedure}

05/03/2007, 21h48
braecking

ok ca marhce nikel les details sont bien ajouté en plus dans les differents fichiers mais un otre petit probleme enfin vais de regler par moi meme cette fois ;) ... merci bien de l'aide, j'ai bien avancé sur mon projet :merci:

fx
05/03/2007, 21h51
ero-sennin

Pas de soucis ;)

Pense au :resolu: et par la suite :tagcode: :mrgreen: :mrgreen:

ok jpense que je commence a avoir les ptits reflexes pour ce forum :mrgreen:

juste une ptite question avant que jy aille

dans les differents fichiers toutes les nouveaux details que j'ai entrés sont parfaitement enregistré mais il y a un petit soucis (encore lol) quand j'essaie de montrer les infos enregistrer sur la blackscreen, il ne montre pas tout les details entré.

voila les deux procedures
la 1ere

Code:

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
Procedure NewDetails;
var a, testvar: integer;
    Position:longint;
begin
 if FileExists('C:\Documents and Settings\Braecking\Desktop\PROJECT DELPHI\Test Version\Examiner.dat')then
  begin
   Assign(ExaminerFile, 'Examiner.dat');
   Reset (examinerFile) ;
   Position := Filesize(ExaminerFile); //détermine le nombre d'enregistrement
   Seek(ExaminerFile, Position); //positionnement à la fin du dernier enregistrement (pour une nouvelle insertion)
  end
 else
  begin
   AssignFile (ExaminerFile, 'Examiner.dat');
   Rewrite(ExaminerFile);
  end;
 AssignFile (SubjectFile, 'Subject.dat');
 Rewrite(SubjectFile);
 AssignFile (Centrefile, 'Centre.dat');
 Rewrite(CentreFile);
 Writeln ('How many examiner details do you want to enter? ');
 Readln (testvar);
 for a:= 1 to testvar
  do
  begin
   Writeln ('');
   Writeln ('NEW DETAILS N',a);
   Write (' Enter the examiner name: ');
   Readln (Examiner[a].ExaminerName);
   Write (' Enter the examiner number (must be 6 digits): ');
   Readln (Examiner[a].ExaminerNo);
   While not ((Examiner[a].ExaminerNo > 100000) and (Examiner[a].ExaminerNo <999999))do
    begin
     Writeln (' Wrong number, please try again');
     Write (' Enter the examiner number (must be 6 digits): ');
     Readln (Examiner[a].ExaminerNo);
    end;
   Write (' Enter the examiner address: ');
   Readln (Examiner[a].ExaminerAddress);
   Write (' Enter the total number of script marked: ');
   Readln (Examiner[a].TotalScripts);
   Write (' Enter the subject reference code (must be 5 digits): ');
   Readln (Subject[a].SubRefCode);
   While not ((Subject[a].SubRefCode > '10000') and (Subject[a].SubRefCode < '99999')) do
   begin
    Writeln (' Wrong number, please try again');
    Write (' Enter the subject reference code (must be 5 digits): ');
    Readln (Subject[a].SubRefCode);
   end;
   Write (' Enter the subject name: ');
   Readln( Subject[a].SubjectName);
   Write (' Enter the payment for marking each script: ');
   Readln (Subject [a].SubPaymentScript);
   Write (' Enter the centre number (within the range of 10000 to 79999): ');
   Readln (Centre[a].Centreno);
   Write (' Enter the centre name: ');
   Readln (Centre[a].Centrename);
   Write (ExaminerFile, Examiner[a]);
   Write (SubjectFile, Subject[a]);
   Write (CentreFile, Centre[a]);
  end;
 Closefile (ExaminerFile);
 Closefile (SubjectFile);
 Closefile (CentreFile);
 Readln;
//end;
end; {of procedure}

et la le code de l'autre procedure

Code:

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
Procedure ExaminerListPayment;
var Ptr: integer;
    netandtaxvalue: real;
begin
 AssignFile (examinerFile, 'examiner.dat');
 Reset (examinerFile);
 AssignFile (subjectfile, 'subject.dat');
 Reset (subjectfile);
 Ptr := 0;
 Writeln ('-Name-    -Number-  -Sripts marked-  -Price per script-  -Gross Payment-  -Net Payment-  -Tax Value-');
 while not eof (examinerfile) and not eof (subjectfile)
  do
   begin
    Ptr := Ptr + 1;
    Writeln ('');
    Read (examinerfile, examiner [Ptr]);
    Read (subjectfile, subject [ptr]);
  //  Examiner[ptr].paymentnet := subject[ptr].subpaymentscript * Examiner[ptr].totalscripts;
  //  Examiner[ptr].paymentbrut := Examiner[ptr].paymentnet * 0.79;
    Writeln ('');
    netandtaxvalue := grosspayment(examiner[Ptr].totalscripts, subject[ptr].subpaymentscript);
    Write (examiner[Ptr].examinername,'       ',examiner[Ptr].examinerno,'         ',examiner[Ptr].totalscripts);
    Write ('                ',subject[ptr].subpaymentscript:5:2,'            ');
    Write (grosspayment(examiner[Ptr].totalscripts, subject[ptr].subpaymentscript):5:2,'          ');
    Writeln (netpayment (netandtaxvalue):5:2,'      ', taxvalue (netandtaxvalue):5:2);
   end;
   Readln;
   closefile (examinerfile);
   Closefile (subjectfile);
end; {of procedure}

voila derniere question ;) et apres je stoppe pcq sinon je vais faire une overdose de delphi pour la journee la :mrgreen:

fx

06/03/2007, 12h14
braecking

Quelqu'un nora pas une petite idée d'ou ce probleme:bug: peut bien venir ?

fx