Function StringToInt et Trim

**braecking** · 05/03/2007, 13h09

, 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 :

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

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

)

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

merci

fx

**philnext** · 05/03/2007, 13h52

Trim enlève les caractères 'non imprimables' aux extremités des strings.

Code :

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

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

**philnext** · 05/03/2007, 13h57

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 :

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

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')

**pinson** · 05/03/2007, 14h16

Autre solution :

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

Code :

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

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 :

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

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

**braecking** · 05/03/2007, 14h36

ok merci des conseilles

fx

**slimjoe** · 05/03/2007, 14h43

Envoyé par pinson

Autre solution :

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

Code :

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

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 :

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

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 :

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

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)

**pinson** · 05/03/2007, 15h07

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

Dans ce cas, c'est pas mal aussi.

**braecking** · 05/03/2007, 18h03

me revoila

...lol encore un ptit probleme que j'ai du mal a resoudre (ca arrete pas pour le moment

, mais heureusement que ce forum existe sinon

)

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

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

**ecisternas** · 05/03/2007, 18h06

Essaye append(filename) pour préparer ton fichier à l'ajout de données en fin de ce dernier.

**braecking** · 05/03/2007, 18h10

juste avant les closefile je met append (filename) ? tout ce que je dois faire ?

**tourlourou** · 05/03/2007, 18h56

à la place des Reset()

**braecking** · 05/03/2007, 19h02

ca ne marche pas: incompatible types

fx

**ero-sennin** · 05/03/2007, 20h35

Salut,

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

Code :

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

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

par

Code :

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

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 :

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
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;

**braecking** · 05/03/2007, 20h56

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

**ero-sennin** · 05/03/2007, 21h13

Oops, petite faute d'inattention de ma part

Remplace ceci

Code :

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

Append(reset);

par

Code :

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

Reset(ExaminerFile);

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

Je pense que ca devrait aller

**braecking** · 05/03/2007, 21h24

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

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
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

fx

**ero-sennin** · 05/03/2007, 21h31

Tu as oublié un END!!

Code :

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

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 !

**braecking** · 05/03/2007, 21h35

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

)

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
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}

**ero-sennin** · 05/03/2007, 21h38

Oui il manque bien un END.

Essaie ceci:

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
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}

**braecking** · 05/03/2007, 21h48

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

fx

Function StringToInt et Trim

Delphi

Discussions similaires

Partager

Partager