Function StringToInt et Trim

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