Discussion :

[Mickey.jet]

Bonjour.
Voilà mon problème... (je ne connais pas le pascal)

J'ai une fonction en pascal qui reçoit un Pchar et je dois absolument tester celui-ci. Pour exemple je recois:

Code :

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

var1 := toto // --> var1 de type pChar

Je dois vérifier qu'aucune lettre n'est erronée (ici le /).

Comment dois-je m'y prendre??

Merci

[Alcatîz]

Bonjour !

Tu peux utiliser la fonction StrPos() :

Code :

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

1
2
3
if StrPos(var1,'/') <> Nil
   then
     // Message d'erreur

[Juju_41]

Bonjour

Un PChar est un pointeur sur un caractère. Ce type est généralement utilisé pour les chaines de caractères (terminées par le caractère 0).

Pour parcourir une telle chaine :

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
  machaine: PChar;
  monpchar: PChar;
 
begin
  { ... }
  monpchar := machaine;
  while (monpchar^ <> #0) do
    begin
      { tester monpchar^ }
      { incrémenter le pointeur monpchar }
    end;
  { ... }
end.

Sous TP7, on peut incrémenter le pointeur de cette manière :

Code :

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

monpchar := ptr(seg(monpchar^), ofs(monpchar^)+1)

Edit : la méthode d'Alcatîz est bien plus intelligente