RightStr

cs_dunith
Messages postés
100
Date d'inscription
samedi 5 janvier 2008
Statut
Membre
Dernière intervention
11 avril 2008
- 31 mars 2008 à 17:03
delphinovice
Messages postés
6
Date d'inscription
samedi 12 avril 2008
Statut
Membre
Dernière intervention
15 mars 2010
- 13 avril 2008 à 00:38
Bonjour


j'ai une procédure son implémentation est comme suit:
procedure TGestCAB.CodeRecu(Sender: TObject; returnPacket : string);

 var

  Code : String;

  numLecteur : integer;

begin

  numLecteur := -1;

    if LeftStr(returnPacket, 2)='/*' then // message avertissement, on ignore

      exit;

    // on récupère le n° de lecteur (les 4 premiers chars)

    numLecteur := StrToInt(LeftStr(returnPacket,4));

    // on récupère le code

    code := MidStr(returnPacket, 5, Length(returnPacket)-4);

    DoOnChRecu(numLecteur, Code);

end;

et j'ai une erreur

 Identificateur non déclaré : 'LeftStr' et MidStr

 ses fonctions sont dans l'aide de delphi, donc elles sont visible?

quelq'un peut me dire pourquoi?

je suis débutante en delphi

merci

5 réponses

Cirec
Messages postés
3832
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
17 février 2022
48
31 mars 2008 à 17:12
Salut,

dans l'aide il y a également Unit ou Unité StrUtils

Il faut donc déclarer StrUtils dans la clause Uses de ton code pour pouvoir utiliser ces fonctions

 
@+
Cirec

<hr siz="" />
0
cs_dunith
Messages postés
100
Date d'inscription
samedi 5 janvier 2008
Statut
Membre
Dernière intervention
11 avril 2008

31 mars 2008 à 17:27
Salut


ok! Cirec

merci pour ton aide
0
cs_dunith
Messages postés
100
Date d'inscription
samedi 5 janvier 2008
Statut
Membre
Dernière intervention
11 avril 2008

31 mars 2008 à 17:34
bonjour


j'ai une autre question dans la ligne de code:
numLecteur := -1;
    if LeftStr(returnPacket, 2)='/*' then exit;


a quoi correspond le caractère en rouge '/*'?
j'ai cherché sur internet  dans les caractères spéciaux en delphi mais je n'ai pas trouvé!
Merci
0
Caribensila
Messages postés
2527
Date d'inscription
jeudi 15 janvier 2004
Statut
Membre
Dernière intervention
16 octobre 2019
18
31 mars 2008 à 18:01
Bonjour,

Ce ne sont pas des caractères spéciaux de Delphi. C'est simplement la chaîne { /* }
Regarde "Chaînes de caractères" dans l'aide Delphi :



'BORLAND'        { BORLAND }
'Vous l''aurez'    { Vous l'aurez }
''''                    { ' }
''                     { chaîne nulle }
' '                    { un espace }  
...etc...
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
delphinovice
Messages postés
6
Date d'inscription
samedi 12 avril 2008
Statut
Membre
Dernière intervention
15 mars 2010

13 avril 2008 à 00:38
Langage : Delphi 5
Date ajout : 17/12/2007
Posté par 25786 japee[Liste]
DateMAJ : 17/02/2008

Uses SysUtils, Math;

Il faut declarer ses fonction  dans le clause des uses











function
MidStr(const S, SLeft, SRight: string): string;
var
  PosLeft, PosRight, PosMid: Integer;
  STmp: string;
begin
  Result : = '';
  PosLeft := Pos(SLeft, S);
  if PosLeft = 0then Exit;
  PosMid := PosLeft + Length(SLeft);
  STmp := Copy(S, PosMid, Length(S));
  PosRight := Pos(SRight, STmp);
  if PosRight = 0then Exit;
  Result := Copy(STmp, 1 , PosRight - 1);
end;
function RightStr
(Const Str: String; Size: Word): String;
begin
if Size > Length(Str) then Size : = Length(Str);
RightStr := Copy(Str, Length(Str)-Size+1, Size)
end;

function MidStr
(Const Str: String; From, Size: Word): String;
begin
MidStr := Copy(Str, From, Size)
end;

function LeftStr
(Const Str: String; Size: Word): String;
begin
LeftStr := Copy(Str, 1, Size)
end;
end;
0